|
1100
|
How can I advance to the next line, once the user presses the ENTER key
// KeyDown event - Occurs when the user presses a key while an object has the focus.
FUNCTION gridEvents_KeyDown(OBJECT grid, INT KeyCode, INT Shift)
Message( "KeyCode Before:" );
Message( KeyCode );
KeyCode = _ObjectCallMethod( grid , "FormatABC", "value = 13 ? 40 : value",KeyCode);
Message( "KeyCode After:" );
Message( KeyCode );
END
OBJECT columns,editor,grid,items;
grid = ObjectByName("AN1") ;
ObjectAssociateEvents("gridEvents", grid);
_ObjectCallMethod( grid , "BeginUpdate");
columns = _ObjectGetProperty( grid , "Columns");
editor = _ObjectGetProperty( _ObjectCallMethod( columns , "Add", "A") , "Editor");
_ObjectSetProperty( editor , "Appearance", 4);
_ObjectSetProperty( editor , "EditType", 1);
editor = _ObjectGetProperty( _ObjectCallMethod( columns , "Add", "B") , "Editor");
_ObjectSetProperty( editor , "Appearance", 4);
_ObjectSetProperty( editor , "EditType", 1);
items = _ObjectGetProperty( grid , "Items");
h0 = _ObjectCallMethod( items , "AddItem", "Item A.1");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h0")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h0)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Item B.1`");
h0 = _ObjectCallMethod( items , "AddItem", "Item A.2");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h0,1) = `Item B.2`");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1099
|
I am using AddNew to add new records, but I can not see them into the control
// ButtonClick event - Occurs when user clicks on the cell's button.
FUNCTION gridEvents_ButtonClick(OBJECT grid, INT Item, INT ColIndex, VARIANT Key)
OBJECT recordset;
recordset = _ObjectGetProperty( grid , "DataSource");
_ObjectCallMethod( recordset , "AddNew", );
_ObjectCallMethod(grid, "TemplatePut", "Dim recObj")
_ObjectCallMethod(grid, "TemplatePut", recordset)
_ObjectCallMethod(grid, "ExecuteTemplate", "recObj.Fields.Item(`A`).Value = `new A`");
_ObjectCallMethod(grid, "ExecuteTemplate", "recObj.Fields.Item(`B`).Value = `new B`");
_ObjectCallMethod( recordset , "Update", );
END
OBJECT grid,items,rs;
grid = ObjectByName("AN1") ;
ObjectAssociateEvents("gridEvents", grid);
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "HeaderAppearance", 4);
rs = CreateObject("ADODB.Recordset");
_ObjectCallMethod( _ObjectGetProperty( rs , "Fields") , "Append", "A",8);
_ObjectCallMethod( _ObjectGetProperty( rs , "Fields") , "Append", "B",8);
_ObjectCallMethod( rs , "Open", );
_ObjectCallMethod( rs , "AddNew", );
_ObjectCallMethod(grid, "TemplatePut", "Dim rsObj")
_ObjectCallMethod(grid, "TemplatePut", rs)
_ObjectCallMethod(grid, "ExecuteTemplate", "rsObj.Fields.Item(`A`).Value = `Item A.1`");
_ObjectCallMethod(grid, "ExecuteTemplate", "rsObj.Fields.Item(`B`).Value = `Item B.1`");
_ObjectCallMethod( rs , "Update", );
_ObjectCallMethod( rs , "AddNew", );
_ObjectCallMethod(grid, "ExecuteTemplate", "rsObj.Fields.Item(`A`).Value = `Item A.2`");
_ObjectCallMethod(grid, "ExecuteTemplate", "rsObj.Fields.Item(`B`).Value = `Item B.2`");
_ObjectCallMethod( rs , "Update", );
_ObjectSetProperty( grid , "DataSource", rs);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.LockedItemCount(0) = 1");
h = _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.LockedItem(0,0)");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemDivider(h) = 0");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellHasButton(h,0) = True");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,0) = `AddNew`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellHAlignment(h,0) = 1");
_ObjectSetProperty( grid , "DetectAddNew", -1);
_ObjectSetProperty( grid , "DetectDelete", -1);
_ObjectCallMethod( grid , "EndUpdate");
|
|
1098
|
How can I create a new ADO recordset
OBJECT grid,rs;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
rs = CreateObject("ADODB.Recordset");
_ObjectCallMethod( _ObjectGetProperty( rs , "Fields") , "Append", "A",8);
_ObjectCallMethod( _ObjectGetProperty( rs , "Fields") , "Append", "B",8);
_ObjectCallMethod( rs , "Open", );
_ObjectCallMethod( rs , "AddNew", );
_ObjectCallMethod(grid, "TemplatePut", "Dim rsObj")
_ObjectCallMethod(grid, "TemplatePut", rs)
_ObjectCallMethod(grid, "ExecuteTemplate", "rsObj.Fields.Item(`A`).Value = `Item A.1`");
_ObjectCallMethod(grid, "ExecuteTemplate", "rsObj.Fields.Item(`B`).Value = `Item B.1`");
_ObjectCallMethod( rs , "Update", );
_ObjectCallMethod( rs , "AddNew", );
_ObjectCallMethod(grid, "ExecuteTemplate", "rsObj.Fields.Item(`A`).Value = `Item A.2`");
_ObjectCallMethod(grid, "ExecuteTemplate", "rsObj.Fields.Item(`B`).Value = `Item B.2`");
_ObjectCallMethod( rs , "Update", );
_ObjectSetProperty( grid , "DataSource", rs);
_ObjectCallMethod( grid , "EndUpdate");
|
|
1097
|
Do do I get the DAO version I have installed
OBJECT grid;
grid = ObjectByName("AN1") ;
Message( _ObjectGetProperty( CreateObject("DAO.DBEngine.35") , "Version") );
Message( _ObjectGetProperty( CreateObject("DAO.DBEngine.36") , "Version") );
Message( _ObjectGetProperty( CreateObject("DAO.DBEngine.120") , "Version") );
|
|
1096
|
How do I get a list of interfaces the object implemenets
OBJECT createobject("dao.dbengine.120"),grid;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "ColumnAutoResize", 0);
createobject("dao.dbengine.120") = CreateObject("DAO.DBEngine.120");
rs = _ObjectCallMethod( _ObjectCallMethod( createobject("dao.dbengine.120") , "OpenDatabase", "C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb") , "OpenRecordset", "Orders");
Message( CreateObject("Exontrol.PropertiesList") );
_ObjectSetProperty( grid , "DataSource", rs);
_ObjectCallMethod( grid , "EndUpdate");
|
|
1095
|
Do do I get the ADO version I have installed
OBJECT grid;
grid = ObjectByName("AN1") ;
Message( "ADO Version:" );
Message( _ObjectGetProperty( CreateObject("ADODB.Connection") , "Version") );
|
|
1094
|
DAO, ACCDB, 120
OBJECT createobject("dao.dbengine.120"),grid;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "ColumnAutoResize", 0);
createobject("dao.dbengine.120") = CreateObject("DAO.DBEngine.120");
rs = _ObjectCallMethod( _ObjectCallMethod( createobject("dao.dbengine.120") , "OpenDatabase", "C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb") , "OpenRecordset", "Orders");
_ObjectSetProperty( grid , "DataSource", rs);
_ObjectCallMethod( grid , "EndUpdate");
|
|
1093
|
DAO, MDB, 120
OBJECT createobject("dao.dbengine.120"),grid;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "ColumnAutoResize", 0);
createobject("dao.dbengine.120") = CreateObject("DAO.DBEngine.120");
rs = _ObjectCallMethod( _ObjectCallMethod( createobject("dao.dbengine.120") , "OpenDatabase", "C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb") , "OpenRecordset", "Orders");
_ObjectSetProperty( grid , "DataSource", rs);
_ObjectCallMethod( grid , "EndUpdate");
|
|
1092
|
DAO, MDB
OBJECT createobject("dao.dbengine.36"),grid;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "ColumnAutoResize", 0);
createobject("dao.dbengine.36") = CreateObject("DAO.DBEngine.36");
rs = _ObjectCallMethod( _ObjectCallMethod( createobject("dao.dbengine.36") , "OpenDatabase", "C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.mdb") , "OpenRecordset", "Orders");
_ObjectSetProperty( grid , "DataSource", rs);
_ObjectCallMethod( grid , "EndUpdate");
|
|
1091
|
ADODB, ACCDB, x64
OBJECT grid,rs;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "ColumnAutoResize", 0);
rs = CreateObject("ADODB.Recordset");
_ObjectCallMethod( rs , "Open", "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",1,1);
_ObjectSetProperty( grid , "DataSource", rs);
_ObjectCallMethod( grid , "EndUpdate");
|
|
1090
|
ADOR, ACCDB
OBJECT grid,rs;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "ColumnAutoResize", 0);
rs = CreateObject("ADOR.Recordset");
_ObjectCallMethod( rs , "Open", "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3);
_ObjectSetProperty( grid , "DataSource", rs);
_ObjectCallMethod( grid , "EndUpdate");
|
|
1089
|
ADODB, MDB
OBJECT grid,rs;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "ColumnAutoResize", 0);
rs = CreateObject("ADODB.Recordset");
_ObjectCallMethod( rs , "Open", "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3);
_ObjectSetProperty( grid , "DataSource", rs);
_ObjectCallMethod( grid , "EndUpdate");
|
|
1088
|
ADOR, MDB
OBJECT grid,rs;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "ColumnAutoResize", 0);
rs = CreateObject("ADOR.Recordset");
_ObjectCallMethod( rs , "Open", "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3);
_ObjectSetProperty( grid , "DataSource", rs);
_ObjectCallMethod( grid , "EndUpdate");
|
|
1087
|
How can I display the row on multiple lines (excrd)
OBJECT column,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "HeaderAppearance", 4);
_ObjectSetProperty( grid , "SelBackMode", 1);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Default");
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", column)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(32) = `[b=0]60;1[b=15]:60,((20;^"<fgcolor=808080>Dateigröße^"[b=1][a=2]:120,2[b=15])/(20;^"<fgcolor=808080>Erstellt am^"[a=2]:120,3[b=15])/(20;^"<fgcolor=808080>Zuletzt bearbeitet^"[b=4][a=2]:120,4[b=15]))`");
_ObjectSetProperty( column , "AllowSort", 0);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", 1) , "Visible", 0);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", 2);
_ObjectSetProperty( column , "Visible", 0);
_ObjectSetProperty( _ObjectGetProperty( column , "Editor") , "EditType", 1);
_ObjectSetProperty( column , "FormatColumn", "1 index `A-Z`");
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", 3);
_ObjectSetProperty( column , "Visible", 0);
_ObjectSetProperty( _ObjectGetProperty( column , "Editor") , "EditType", 1);
_ObjectSetProperty( column , "FormatColumn", "1 index ``");
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", 4);
_ObjectSetProperty( column , "Visible", 0);
_ObjectSetProperty( _ObjectGetProperty( column , "Editor") , "EditType", 1);
_ObjectSetProperty( column , "FormatColumn", "date(``)");
_ObjectSetProperty( grid , "DefaultItemHeight", 48);
_ObjectSetProperty( grid , "DrawGridLines", -2);
_ObjectSetProperty( grid , "GridLineStyle", 48);
_ObjectCallMethod(grid, "ExecuteTemplate", "ViewModeOption(0,0) = 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "ViewModeOption(0,1) = 1");
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(AddItem(``),1) = `One`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(AddItem(``),1) = `Two`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(AddItem(``),1) = `Three`");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1086
|
Type of wraps the cell's caption support (Sample 2)
OBJECT column,columns,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "HeaderSingleLine", 0);
_ObjectSetProperty( grid , "HeaderHeight", 36);
_ObjectSetProperty( grid , "DrawGridLines", -2);
_ObjectSetProperty( grid , "ColumnAutoResize", 0);
_ObjectSetProperty( grid , "ScrollBySingleLine", -1);
columns = _ObjectGetProperty( grid , "Columns");
column = _ObjectCallMethod( columns , "Add", "Single-Line (exCaptionSingleLine)");
_ObjectSetProperty( column , "Width", 96);
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", column)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(17) = 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(16) = -1");
column = _ObjectCallMethod( columns , "Add", "Word-Wrap (exCaptionWordWrap)");
_ObjectSetProperty( column , "Width", 96);
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(17) = 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(16) = 0");
_ObjectSetProperty( column , "FormatColumn", "%0");
column = _ObjectCallMethod( columns , "Add", "Break-Wrap (exCaptionBreakWrap)");
_ObjectSetProperty( column , "Width", 96);
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(17) = 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(16) = 1");
_ObjectSetProperty( column , "FormatColumn", "%0");
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", "This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.");
_ObjectCallMethod( items , "AddItem", "This is the <b>first</b> line.\r\nThis is the <b>second</b> line.\r\nThis is the <b>third</b> line.");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1085
|
Type of wraps the cell's caption support (Sample 1)
OBJECT grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "HeaderSingleLine", 0);
_ObjectSetProperty( grid , "HeaderHeight", 36);
_ObjectSetProperty( grid , "DrawGridLines", -2);
_ObjectSetProperty( grid , "ColumnAutoResize", 0);
_ObjectSetProperty( grid , "ScrollBySingleLine", -1);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Default") , "Width", 128);
items = _ObjectGetProperty( grid , "Items");
h = _ObjectCallMethod( items , "AddItem", "This is the first line.\r\nThis is the second line.\r\nThis is the third line.");
h = _ObjectCallMethod( items , "AddItem", "This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValueFormat(h,0) = 1");
h = _ObjectCallMethod( items , "AddItem", "This is the first line.\r\nThis is the second line.\r\nThis is the third line.");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellSingleLine(h,0) = 0");
h = _ObjectCallMethod( items , "AddItem", "This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValueFormat(h,0) = 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellSingleLine(h,0) = 0");
h = _ObjectCallMethod( items , "AddItem", "This is the first line.\r\nThis is the second line.\r\nThis is the third line.");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellSingleLine(h,0) = 1");
h = _ObjectCallMethod( items , "AddItem", "This is the <b>first</b> line.<br>This is the <b>second</b> line.<br>This is the <b>third</b> line.");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValueFormat(h,0) = 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellSingleLine(h,0) = 1");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1084
|
Can I break the cell's caption using the line break <br> or \r\n (Sample 2)
OBJECT grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "DrawGridLines", -2);
_ObjectSetProperty( grid , "ColumnAutoResize", 0);
_ObjectSetProperty( grid , "ScrollBySingleLine", -1);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Default") , "Width", 128);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellSingleLine(AddItem(`This is the first line.\r\nThis is the second line.\r\nThis is the third line.`),0) = 1");
_ObjectCallMethod( items , "AddItem", "This is the first line.\r\nThis is the second line.\r\nThis is the third line.");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1083
|
Can I break the cell's caption using the line break <br> or \r\n (Sample 1)
OBJECT column,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "HeaderAppearance", 4);
_ObjectSetProperty( grid , "DrawGridLines", -2);
_ObjectSetProperty( grid , "GridLineStyle", 512);
_ObjectSetProperty( grid , "ColumnAutoResize", 0);
_ObjectSetProperty( grid , "ScrollBySingleLine", -1);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Default");
_ObjectSetProperty( column , "Width", 196);
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", column)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(16) = 1");
items = _ObjectGetProperty( grid , "Items");
h = _ObjectCallMethod( items , "AddItem", "<solidline><b>Bank Account</b></solidline><br>+ owner: String <r><a 1;properties>+</a><br><solidline>+ balance: Currency = 0</s" +
"olidline><br>+ deposit(amount: Currency)<r><a ;methods>+</a><br>+ withdraw(amount: Currency)");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValueFormat(h,0) = 1");
_ObjectCallMethod( items , "AddItem", "This is the first line.\r\nThis is the second line.\r\nThis is the third line.");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1082
|
How can I change the visual appearance/color of the Filter For ... field
OBJECT column,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "LinesAtRoot", -1);
_ObjectSetProperty( grid , "BackColorHeader", 1);
_ObjectSetProperty( grid , "ForeColorHeader", 16777215);
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(26) = BackColorHeader");
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(27) = ForeColorHeader");
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(0) = 15790320");
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(32) = -1");
_ObjectSetProperty( grid , "HeaderAppearance", 5);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Items");
_ObjectSetProperty( column , "FilterOnType", -1);
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "FilterList", 2);
items = _ObjectGetProperty( grid , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
h = _ObjectCallMethod( items , "AddItem", "Root 2");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1081
|
How can I display the cell's caption without spaces on both sides
OBJECT column,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "ColumnAutoResize", -1);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Default");
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", column)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(17) = 1");
_ObjectSetProperty( column , "FormatColumn", "((trim(value) replace ` ` with ` `) replace ` ` with ` `) replace ` ` with `<bgcolor=FF0000> </bgcolor>`");
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", "");
_ObjectCallMethod( items , "AddItem", "Item A");
_ObjectCallMethod( items , "AddItem", " Item B");
_ObjectCallMethod( items , "AddItem", " Item C ");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1080
|
How can I highlight the spaces within the column (sample 2)
OBJECT column,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "ColumnAutoResize", -1);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Default");
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", column)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(17) = 1");
_ObjectSetProperty( column , "FormatColumn", "`'` + ( value replace ` ` with `_` ) + `'`");
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", "");
_ObjectCallMethod( items , "AddItem", "Item A");
_ObjectCallMethod( items , "AddItem", " Item B");
_ObjectCallMethod( items , "AddItem", " Item C ");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1079
|
How can I highlight the spaces within the column (sample 1)
OBJECT column,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "ColumnAutoResize", -1);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Default");
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", column)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(17) = 1");
_ObjectSetProperty( column , "FormatColumn", "len(value) = 0 ? `<bgcolor=FF0000> </bgcolor>` : ( value replace ` ` with `<bgcolor=FF0000> </bgcolor>` )");
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", "");
_ObjectCallMethod( items , "AddItem", "Item A");
_ObjectCallMethod( items , "AddItem", " Item B");
_ObjectCallMethod( items , "AddItem", " Item C ");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1078
|
How can I change the visual aspect of the drop down filter-calendar
OBJECT column,grid;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(26) = 65536");
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(27) = 16777215");
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(12) = 16777215");
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(8) = Background(26)");
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(11) = 8421504");
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Date");
_ObjectSetProperty( column , "FilterType", 4);
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "DisplayFilterDate", -1);
_ObjectSetProperty( column , "DisplayFilterPattern", 0);
_ObjectCallMethod( grid , "EndUpdate");
|
|
1077
|
How can I hide the filter bar description
OBJECT column,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Filter");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "FilterType", 240);
_ObjectSetProperty( column , "Filter", "B");
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", "A");
_ObjectCallMethod( items , "AddItem", "B");
_ObjectCallMethod( items , "AddItem", "C");
_ObjectCallMethod( grid , "ApplyFilter");
_ObjectSetProperty( grid , "FilterBarHeight", 0);
_ObjectCallMethod( grid , "EndUpdate");
|
|
1076
|
Export Data in HTML format
OBJECT column,columns,conditionalformat,conditionalformats,createobject("internetexplorer.application"),grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "LinesAtRoot", -1);
_ObjectSetProperty( grid , "BackColorAlternate", 15790320);
_ObjectSetProperty( grid , "DrawGridLines", -1);
_ObjectSetProperty( grid , "HeaderAppearance", 4);
_ObjectCallMethod(grid, "ExecuteTemplate", "Description(11) = FormatABC(``<fgcolor=808080> ` + value + ` </fgcolor>``,Description(11))");
_ObjectSetProperty( grid , "FilterBarCaption", "(( ( value replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace " +
"`[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` ) + `<r><fgcolor=808080>` + ( matc" +
"hitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcou" +
"nt + ` item(s)`) )))");
_ObjectSetProperty( grid , "FilterBarPromptVisible", 2579);
_ObjectSetProperty( grid , "FilterBarPromptType", 2);
conditionalformats = _ObjectGetProperty( grid , "ConditionalFormats");
_ObjectSetProperty( _ObjectCallMethod( conditionalformats , "Add", "%0 like `*parent*`","parent") , "BackColor", 12632256);
conditionalformat = _ObjectCallMethod( conditionalformats , "Add", "%0 like `*child*`","child");
_ObjectSetProperty( conditionalformat , "ForeColor", 8421631);
_ObjectSetProperty( conditionalformat , "ApplyTo", 0);
conditionalformat = _ObjectCallMethod( conditionalformats , "Add", "%0 like `*B*`","b");
_ObjectSetProperty( conditionalformat , "ForeColor", 16711680);
_ObjectSetProperty( conditionalformat , "Bold", -1);
_ObjectSetProperty( conditionalformat , "Italic", -1);
_ObjectSetProperty( conditionalformat , "ApplyTo", 0);
columns = _ObjectGetProperty( grid , "Columns");
column = _ObjectCallMethod( columns , "Add", "Value");
_ObjectSetProperty( column , "Width", 128);
_ObjectSetProperty( column , "HTMLCaption", "<b>VA</b><r>sko");
column = _ObjectCallMethod( columns , "Add", "APos");
_ObjectSetProperty( column , "FormatColumn", "0 apos ``");
_ObjectSetProperty( column , "AllowSort", 0);
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", column)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(4) = 15790320");
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(5) = 8421504");
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(8) = Def(5)");
_ObjectSetProperty( column , "Position", 0);
column = _ObjectCallMethod( columns , "Add", "RPos");
_ObjectSetProperty( column , "FormatColumn", "0 rpos ``");
_ObjectSetProperty( column , "AllowSort", 0);
_ObjectSetProperty( column , "Position", 1);
column = _ObjectCallMethod( columns , "Add", "Index");
_ObjectSetProperty( column , "FormatColumn", "0 index ``");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "FilterList", 256);
_ObjectSetProperty( column , "Position", 2);
column = _ObjectCallMethod( columns , "Add", "Data 1");
_ObjectSetProperty( column , "FormatColumn", "0 index `A-Z`");
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(0) = True");
column = _ObjectCallMethod( columns , "Add", "Data 2");
_ObjectSetProperty( column , "FormatColumn", "0 index `AB` replace `A` with `<off -4>A</off>`");
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(16) = False");
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(17) = 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(1) = True");
column = _ObjectCallMethod( columns , "Add", "Data 3");
_ObjectSetProperty( column , "FormatColumn", "0 index `CDC` replace `D` with `<b>D</b>`");
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(17) = 1");
items = _ObjectGetProperty( grid , "Items");
h = _ObjectCallMethod( items , "AddItem", "ParentA");
_ObjectCallMethod( items , "InsertItem", h,"","Child A");
_ObjectCallMethod( items , "InsertItem", h,"","Child B");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(h,4) = 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellBackColor(InsertItem(h,,`Child C`),5) = 65280");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod( items , "AddItem", "Item A");
h = _ObjectCallMethod( items , "AddItem", "ParentB");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellBackColor(InsertItem(h,,`Child 3`),5) = 65280");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(h,5) = 1");
_ObjectCallMethod( items , "AddItem", "Item B");
_ObjectCallMethod( items , "AddItem", "Item C");
_ObjectCallMethod( items , "AddItem", "Item D");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod( grid , "EndUpdate");
sFile = "c:/temp/export.html";
_ObjectCallMethod( grid , "Export", sFile,"vis");
createobject("internetexplorer.application") = CreateObject("InternetExplorer.Application");
_ObjectCallMethod( createobject("internetexplorer.application") , "Navigate2", sFile);
|
|
1075
|
Export Data in CSV format
OBJECT column,columns,conditionalformat,conditionalformats,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "LinesAtRoot", -1);
_ObjectSetProperty( grid , "BackColorAlternate", 15790320);
_ObjectSetProperty( grid , "DrawGridLines", -1);
_ObjectSetProperty( grid , "HeaderAppearance", 4);
_ObjectCallMethod(grid, "ExecuteTemplate", "Description(11) = FormatABC(``<fgcolor=808080> ` + value + ` </fgcolor>``,Description(11))");
_ObjectSetProperty( grid , "FilterBarCaption", "(( ( value replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace " +
"`[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` ) + `<r><fgcolor=808080>` + ( matc" +
"hitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcou" +
"nt + ` item(s)`) )))");
_ObjectSetProperty( grid , "FilterBarPromptVisible", 2579);
_ObjectSetProperty( grid , "FilterBarPromptType", 2);
conditionalformats = _ObjectGetProperty( grid , "ConditionalFormats");
_ObjectSetProperty( _ObjectCallMethod( conditionalformats , "Add", "%0 like `*parent*`","parent") , "BackColor", 12632256);
conditionalformat = _ObjectCallMethod( conditionalformats , "Add", "%0 like `*child*`","child");
_ObjectSetProperty( conditionalformat , "ForeColor", 8421631);
_ObjectSetProperty( conditionalformat , "ApplyTo", 0);
conditionalformat = _ObjectCallMethod( conditionalformats , "Add", "%0 like `*B*`","b");
_ObjectSetProperty( conditionalformat , "ForeColor", 16711680);
_ObjectSetProperty( conditionalformat , "Bold", -1);
_ObjectSetProperty( conditionalformat , "Italic", -1);
_ObjectSetProperty( conditionalformat , "ApplyTo", 0);
columns = _ObjectGetProperty( grid , "Columns");
column = _ObjectCallMethod( columns , "Add", "Value");
_ObjectSetProperty( column , "Width", 128);
_ObjectSetProperty( column , "HTMLCaption", "<b>VA</b><r>sko");
column = _ObjectCallMethod( columns , "Add", "APos");
_ObjectSetProperty( column , "FormatColumn", "0 apos ``");
_ObjectSetProperty( column , "AllowSort", 0);
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", column)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(4) = 15790320");
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(5) = 8421504");
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(8) = Def(5)");
_ObjectSetProperty( column , "Position", 0);
column = _ObjectCallMethod( columns , "Add", "RPos");
_ObjectSetProperty( column , "FormatColumn", "0 rpos ``");
_ObjectSetProperty( column , "AllowSort", 0);
_ObjectSetProperty( column , "Position", 1);
column = _ObjectCallMethod( columns , "Add", "Index");
_ObjectSetProperty( column , "FormatColumn", "0 index ``");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "FilterList", 256);
_ObjectSetProperty( column , "Position", 2);
column = _ObjectCallMethod( columns , "Add", "Data 1");
_ObjectSetProperty( column , "FormatColumn", "0 index `A-Z`");
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(0) = True");
column = _ObjectCallMethod( columns , "Add", "Data 2");
_ObjectSetProperty( column , "FormatColumn", "0 index `AB` replace `A` with `<off -4>A</off>`");
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(16) = False");
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(17) = 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(1) = True");
column = _ObjectCallMethod( columns , "Add", "Data 3");
_ObjectSetProperty( column , "FormatColumn", "0 index `CDC` replace `D` with `<b>D</b>`");
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(17) = 1");
items = _ObjectGetProperty( grid , "Items");
h = _ObjectCallMethod( items , "AddItem", "ParentA");
_ObjectCallMethod( items , "InsertItem", h,"","Child A");
_ObjectCallMethod( items , "InsertItem", h,"","Child B");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(h,4) = 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellBackColor(InsertItem(h,,`Child C`),5) = 65280");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod( items , "AddItem", "Item A");
h = _ObjectCallMethod( items , "AddItem", "ParentB");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellBackColor(InsertItem(h,,`Child 3`),5) = 65280");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(h,5) = 1");
_ObjectCallMethod( items , "AddItem", "Item B");
_ObjectCallMethod( items , "AddItem", "Item C");
_ObjectCallMethod( items , "AddItem", "Item D");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod( grid , "EndUpdate");
Message( _ObjectCallMethod( grid , "Export", "","vis") );
|
|
1074
|
Is it possible to check multiple-items at once
// AddItem event - Occurs after a new Item has been inserted to Items collection.
FUNCTION gridEvents_AddItem(OBJECT grid, INT Item)
OBJECT items;
_ObjectCallMethod(grid, "TemplatePut", "Dim _ObObj,Item")
_ObjectCallMethod(grid, "TemplatePut", _ObjectGetProperty( grid , "Items"))
_ObjectCallMethod(grid, "TemplatePut", Item)
bHasParent = _ObjectCallMethod( grid , "FormatABC", "value != 0",_ObjectCallMethod(grid, "ExecuteTemplate", "_ObObj.ItemParent(Item)"));
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,Item")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", Item)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellHasCheckBox(Item,0) = bHasParent");
END
OBJECT column,grid,items;
grid = ObjectByName("AN1") ;
ObjectAssociateEvents("gridEvents", grid);
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "LinesAtRoot", -1);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Tasks");
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", column)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(17) = 1");
_ObjectSetProperty( column , "FormatColumn", "value + (%CS0 = 1 ? `<r><fgcolor=808080>(checked)` : ``)");
_ObjectSetProperty( grid , "HeaderVisible", 1);
_ObjectSetProperty( grid , "SingleSel", 0);
items = _ObjectGetProperty( grid , "Items");
h = _ObjectCallMethod( items , "AddItem", "Project");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 1");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 2");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 3");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.LockedItemCount(0) = 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(LockedItem(0,0),0) = `<c>Select multiple items and press the <b>SPACE</b> key`");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1073
|
How can I get the icon from the cell when using the Items.CellImages property (icon index)
// MouseMove event - Occurs when the user moves the mouse.
FUNCTION gridEvents_MouseMove(OBJECT grid, INT Button, INT Shift, INT X, INT Y)
_ObjectCallMethod(grid, "TemplatePut", "Dim c,hit")
_ObjectCallMethod(grid, "TemplatePut", c)
_ObjectCallMethod(grid, "TemplatePut", hit)
i = _ObjectCallMethod(grid, "ExecuteTemplate", "ItemFromPoint(-1,-1,c,hit)");
_ObjectCallMethod(grid, "TemplatePut", "Dim _ObObj,c,i")
_ObjectCallMethod(grid, "TemplatePut", _ObjectGetProperty( grid , "Items"))
_ObjectCallMethod(grid, "TemplatePut", c)
_ObjectCallMethod(grid, "TemplatePut", i)
Message( _ObjectCallMethod( grid , "FormatABC", "( 0x44 = ( value bitand 0x44 ) ) ? ( ( (value bitand 0xFFFF0000) bitshift 16 ) array B split `,` ) : `no image`",hit,_ObjectCallMethod(grid, "ExecuteTemplate", "_ObObj.CellImages(i,c)")) );
END
OBJECT grid,items;
grid = ObjectByName("AN1") ;
ObjectAssociateEvents("gridEvents", grid);
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectCallMethod( grid , "Images", "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" +
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=");
_ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Default");
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellImages(AddItem(`Item 1`),0) = `3,2,1`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellImages(AddItem(`Item 2`),0) = `2,3`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellImages(AddItem(`Item 3`),0) = `2,`");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1072
|
How can I get the icon from the cell when using the Items.CellImages property (icon position within the cell)
// MouseMove event - Occurs when the user moves the mouse.
FUNCTION gridEvents_MouseMove(OBJECT grid, INT Button, INT Shift, INT X, INT Y)
_ObjectCallMethod(grid, "TemplatePut", "Dim c,hit")
_ObjectCallMethod(grid, "TemplatePut", c)
_ObjectCallMethod(grid, "TemplatePut", hit)
i = _ObjectCallMethod(grid, "ExecuteTemplate", "ItemFromPoint(-1,-1,c,hit)");
Message( _ObjectCallMethod( grid , "FormatABC", "( 0x44 = ( value bitand 0x44 ) ) ? 1 + ( (value bitand 0xFFFF0000) bitshift 16 ) : `no image`",hit) );
END
OBJECT grid,items;
grid = ObjectByName("AN1") ;
ObjectAssociateEvents("gridEvents", grid);
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectCallMethod( grid , "Images", "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" +
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=");
_ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Default");
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellImages(AddItem(`Item 1`),0) = `3,2,1`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellImages(AddItem(`Item 2`),0) = `2,3`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellImages(AddItem(`Item 3`),0) = `2`");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1071
|
Is it possible to change the visual appearance of the position signs when user changes the column's position by drag and drop
OBJECT appearance,columns,grid;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "HeaderAppearance", 4);
columns = _ObjectGetProperty( grid , "Columns");
_ObjectCallMethod( columns , "Add", "Column 1");
_ObjectCallMethod( columns , "Add", "Column 2");
_ObjectCallMethod( columns , "Add", "Column 3");
appearance = _ObjectGetProperty( grid , "VisualAppearance");
_ObjectCallMethod( appearance , "Add", 1,"gBFLBCJwBAEHhEJAAEhABZEGACAADACAxRDgMQBQKAAzAJBIYhiG4cYCgMYxXDOCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADKMA4SOKIZhrE4bBhGaQRUgyI43RhHUBzV" +
"IUcQvE6TZRHCQYHgkNIhDJIM7TPLkeSVJaTIRoKhJUogApQThTMgVRDEThkGoSa6soSoYTDBKybLrSLKagOT5YUDKUqSdKEZRpEq1YztWbaQoCUoqVRRVIWfbNd4JJa4" +
"aDhWpYdpeeY5R7bWLgBYVVABL7LLRsSxpHxPF6RXxaeI3GKsaS8G6ic6nPQMHj7I4NS5pUa6Rh2VYNSa8AAtETRYznOw4bTMXAjNIea5bAYIIR5HIoDzVbQcCQAHL9DB" +
"eEMIQEEISgGhMGZQmocgymoYRRCIEQ0G2HYBnEIBig4V4zCQGINnmagCECY43medZ6H2Pw/g+X5fnueh/h+R5+AKABfkMWgGgGYA4AICoCGCE5WA4CphACMgSD2IRIDI" +
"BICmEd5YGCBpRjGBgegWIYIgWdgoGIRQsiKCZiAiJZ0gGQI4jUS4LECOAiBmDJflGfg2BSY4Al4OhGkOCJ2DgFJjGGfgqgiH5Ch4RhGkqOQmEOEpkFkHQYhJRYyESAok" +
"GKHhIhKIxJEmf4VGUeRGFmF5iBkchPhYJQ5GoYIZg6Ug6GoFYmkmNhuhulRGHKGoImefh0BUZ4JmYeoemeSZ2H6HQmgoBgXDqXwUAQgI=");
_ObjectCallMethod( appearance , "Add", 2,"CP:1 0 -36 0 0");
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(182) = 33554432");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1070
|
How can I add a title column
OBJECT column,columns,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "HeaderHeight", 22);
_ObjectSetProperty( grid , "HeaderAppearance", 4);
_ObjectSetProperty( grid , "DrawGridLines", -1);
columns = _ObjectGetProperty( grid , "Columns");
_ObjectCallMethod( columns , "Add", "Col 1");
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Col 2") , "FormatColumn", "1 pos ``");
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Col 3") , "FormatColumn", "1 pos `A-`");
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Col 4") , "FormatColumn", "1 pos `A-Z`");
column = _ObjectCallMethod( columns , "Add", "Title");
_ObjectSetProperty( column , "ExpandColumns", "0,1,2,3");
_ObjectSetProperty( column , "DisplayExpandButton", 0);
_ObjectSetProperty( column , "AllowSort", 0);
_ObjectSetProperty( column , "AllowDragging", 0);
_ObjectSetProperty( column , "Position", 0);
_ObjectSetProperty( column , "HeaderAlignment", 1);
_ObjectSetProperty( grid , "ColumnAutoResize", 0);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", "Item 1");
_ObjectCallMethod( items , "AddItem", "Item 2");
_ObjectCallMethod( items , "AddItem", "Item 3");
_ObjectCallMethod( items , "AddItem", "Item 4");
_ObjectCallMethod( grid , "EndUpdate");
Message( _ObjectCallMethod( grid , "Export", "") );
|
|
1069
|
FilterBarCaption ALLUI Keyword ( sample 3, result, leaf )
// AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
FUNCTION gridEvents_AddGroupItem(OBJECT grid, INT Item)
OBJECT items;
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,Item")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", Item)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemBackColor(Item) = 15790320");
val = _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(Item,GroupItem(Item))");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,Item,val")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", Item)
_ObjectCallMethod(grid, "TemplatePut", val)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(Item,GroupItem(Item)) = Me.FormatABC(`A = `Checked` ? 1 : 0`,val)");
END
// AddItem event - Occurs after a new Item has been inserted to Items collection.
FUNCTION gridEvents_AddItem(OBJECT grid, INT Item)
_ObjectCallMethod(grid, "TemplatePut", "Dim _ObObj,Item")
_ObjectCallMethod(grid, "TemplatePut", _ObjectGetProperty( grid , "Items"))
_ObjectCallMethod(grid, "TemplatePut", Item)
i = _ObjectCallMethod( grid , "FormatABC", "value + 1",_ObjectCallMethod(grid, "ExecuteTemplate", "_ObObj.ItemToIndex(Item)"));
_ObjectCallMethod(grid, "TemplatePut", "Dim Item")
_ObjectCallMethod(grid, "TemplatePut", Item)
_ObjectCallMethod(grid, "ExecuteTemplate", "Items.CellImage(Item,3) = i");
END
OBJECT column,grid,items;
grid = ObjectByName("AN1") ;
ObjectAssociateEvents("gridEvents", grid);
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectCallMethod( grid , "Images", "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" +
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=");
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Col-1");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "FilterList", 9504);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Col-2");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "FilterList", 9504);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Check");
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", column)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "DisplayFilterPattern", 0);
_ObjectSetProperty( column , "FilterType", 6);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Image");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "FilterType", 10);
_ObjectSetProperty( column , "FilterList", 9472);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Pos");
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "AllowSort", 0);
_ObjectSetProperty( column , "Width", 32);
_ObjectSetProperty( column , "FormatColumn", "1 rpos ``");
_ObjectSetProperty( column , "Position", 0);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(AddItem(`Item A`),1) = `Sub-Item A`");
h = _ObjectCallMethod( items , "AddItem", "Item B");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,1) = `Sub-Item B`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(h,2) = 1");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(AddItem(`Item C`),1) = `Sub-Item C`");
_ObjectSetProperty( grid , "FilterBarFont", _ObjectGetProperty( grid , "Font"));
_ObjectCallMethod(grid, "ExecuteTemplate", "Description(11) = FormatABC(``<fgcolor=808080> ` + value + ` </fgcolor>``,Description(11))");
_ObjectSetProperty( grid , "FilterBarCaption", "(( ( allui replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace " +
"`[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` ) + `<r><fgcolor=808080>` + ( matc" +
"hitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + leafitemcount + ` result(s)` ) : (`<r><fgcolor=808080>`+ leafitemcount + `" +
" item(s)`) )))");
_ObjectSetProperty( grid , "FilterBarPromptVisible", 3);
_ObjectSetProperty( grid , "AllowGroupBy", -1);
_ObjectSetProperty( grid , "SortBarVisible", -1);
column = _ObjectCallMethod(grid, "ExecuteTemplate", "Columns.Item(2)");
_ObjectSetProperty( column , "FormatColumn", "%CS2 ? `Checked` : `Unchecked`");
_ObjectSetProperty( column , "SortOrder", 1);
_ObjectCallMethod( grid , "EndUpdate");
|
|
1068
|
A black portion is shown while I am using the BackColorAlternate with EBN colors. What can I do
OBJECT column,conditionalformat,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "ColumnAutoResize", -1);
_ObjectSetProperty( grid , "DefaultItemHeight", 20);
_ObjectCallMethod( _ObjectGetProperty( grid , "VisualAppearance") , "Add", 1,"gBFLBCJwBAEHhEJAAEhIDhAxHAxg0HG0Mg4xGI3HMOig3GcJiYAf8jAEhhUnAAyhEqg8hk0oAsIjgAiAwmYxGA4mYzGwwkI0i0ooUnB0IBMIl1Dg8zmYyGolptPkI1m" +
"Y1GAll9KoUslNIrVCqNQldShFUstXAVfrVcrlZtVhuFnsUHq1zoczoQGhFBkNpg6zbDykUkhsPHE2h85nc9n8xtVDtlex9Msd2p1YstVq9ux8HyMtzuFz1PsNTzQlv2h" +
"hWfkuqpeVuN0q+nvEooN5veSAGpkb/ACcZrvhU3w83nM/poxGuchGpoVBvWgg+8knA4WimnFxI45Er5XOlHMg/Q3XU33W4ew9Wyu11mchDagcO7zus8VDoNBBEIKBpMY" +
"6DqOQyokhA/IQIQmwMk4bIQFDcoO6LWgwhQkNcABwEyAB5GwWbet6cRQg3DENQ5D8QxADZvEkAB8nabsURGeBpFM3pwE2AEZRpDx/neZpOR3Dz9oO/r/wCMoZNTBQAQR" +
"JSEwYg8HPGhEIoNCaEwq10gQ2WcRt7LcRxRFpuxUAEURQ3sczBEMgTTG8gN7HpOSEAEiQBAQZpmQ0DibPUFwbKcHwkhQoQtNQNzNEMbABOKDy/DMYQzHLeoPL0OTJSUd" +
"0pHcxTewk5zrIygIRPslz4lEngBKIAQivgASs/kLSBTlO00f8t0vGcgUbDlDRjXLCUNRERRvRgAHW2oAICA==");
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Default");
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", column)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "PartialCheck", -1);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Position");
_ObjectSetProperty( column , "FormatColumn", "1 rindex ``");
_ObjectSetProperty( column , "Visible", 0);
conditionalformat = _ObjectCallMethod( _ObjectGetProperty( grid , "ConditionalFormats") , "Add", "%C1 mod 2");
_ObjectSetProperty( conditionalformat , "BackColor", 16777216);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", "Item 1");
_ObjectCallMethod( items , "AddItem", "Item 2");
_ObjectCallMethod( items , "AddItem", "Item 3");
_ObjectCallMethod( items , "AddItem", "Item 4");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1067
|
How can I specify alternate background colors for each root item, similar with BackColorAlternate
OBJECT column,conditionalformat,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "LinesAtRoot", -1);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Default");
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", column)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "PartialCheck", -1);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Position");
_ObjectSetProperty( column , "FormatColumn", "( ( 1:=( ( 0:=(1 rpos '') ) lfind `.`) ) < 0 ? =:0 : (=:0 left =:1) )");
_ObjectSetProperty( column , "Visible", 0);
conditionalformat = _ObjectCallMethod( _ObjectGetProperty( grid , "ConditionalFormats") , "Add", "%C1 mod 2");
_ObjectSetProperty( conditionalformat , "BackColor", 15790320);
items = _ObjectGetProperty( grid , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
h = _ObjectCallMethod( items , "AddItem", "Root 2");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
h = _ObjectCallMethod( items , "AddItem", "Root 3");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1066
|
Is it possible to change the caption from a column without to remove the column and add it with the new caption
OBJECT grid;
grid = ObjectByName("AN1") ;
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "ColumnName") , "Caption", "NewName");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "ColumnName") , "HTMLCaption", "<b>New</b>Name");
|
|
1065
|
FilterBarCaption ALL Keyword ( sample 2, result )
// AddItem event - Occurs after a new Item has been inserted to Items collection.
FUNCTION gridEvents_AddItem(OBJECT grid, INT Item)
_ObjectCallMethod(grid, "TemplatePut", "Dim _ObObj,Item")
_ObjectCallMethod(grid, "TemplatePut", _ObjectGetProperty( grid , "Items"))
_ObjectCallMethod(grid, "TemplatePut", Item)
i = _ObjectCallMethod( grid , "FormatABC", "value + 1",_ObjectCallMethod(grid, "ExecuteTemplate", "_ObObj.ItemToIndex(Item)"));
_ObjectCallMethod(grid, "TemplatePut", "Dim Item")
_ObjectCallMethod(grid, "TemplatePut", Item)
_ObjectCallMethod(grid, "ExecuteTemplate", "Items.CellImage(Item,3) = i");
END
OBJECT column,editor,grid,items;
grid = ObjectByName("AN1") ;
ObjectAssociateEvents("gridEvents", grid);
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectCallMethod( grid , "Images", "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" +
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=");
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Col-1");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "FilterList", 9504);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Col-2");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "FilterList", 9504);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Check");
editor = _ObjectGetProperty( column , "Editor");
_ObjectSetProperty( editor , "EditType", 19);
_ObjectCallMethod(grid, "TemplatePut", "Dim ediObj")
_ObjectCallMethod(grid, "TemplatePut", editor)
_ObjectCallMethod(grid, "ExecuteTemplate", "ediObj.Option(17) = 1");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "DisplayFilterPattern", 0);
_ObjectSetProperty( column , "FilterType", 6);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Image");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "FilterType", 10);
_ObjectSetProperty( column , "FilterList", 9472);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Pos");
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "AllowSort", 0);
_ObjectSetProperty( column , "Width", 32);
_ObjectSetProperty( column , "FormatColumn", "1 apos ``");
_ObjectSetProperty( column , "Position", 0);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(AddItem(`Item A`),1) = `Sub-Item A`");
h = _ObjectCallMethod( items , "AddItem", "Item B");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,1) = `Sub-Item B`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(h,2) = 1");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(AddItem(`Item C`),1) = `Sub-Item C`");
_ObjectSetProperty( grid , "FilterBarFont", _ObjectGetProperty( grid , "Font"));
_ObjectCallMethod(grid, "ExecuteTemplate", "Description(11) = FormatABC(``<fgcolor=808080> ` + value + ` </fgcolor>``,Description(11))");
_ObjectSetProperty( grid , "FilterBarCaption", "(( ( all replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace `[" +
"<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` ) + `<r><fgcolor=808080>` + ( matchi" +
"temcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount" +
" + ` item(s)`) )))");
_ObjectSetProperty( grid , "FilterBarPromptVisible", 3);
column = _ObjectCallMethod(grid, "ExecuteTemplate", "Columns.Item(0)");
_ObjectSetProperty( column , "FilterType", 240);
_ObjectSetProperty( column , "Filter", "Item A|Item B");
_ObjectCallMethod(grid, "ExecuteTemplate", "Columns.Item(2).Filter = 1");
_ObjectCallMethod( grid , "ApplyFilter");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1064
|
FilterBarCaption ALL Keyword ( sample 1 )
// AddItem event - Occurs after a new Item has been inserted to Items collection.
FUNCTION gridEvents_AddItem(OBJECT grid, INT Item)
_ObjectCallMethod(grid, "TemplatePut", "Dim _ObObj,Item")
_ObjectCallMethod(grid, "TemplatePut", _ObjectGetProperty( grid , "Items"))
_ObjectCallMethod(grid, "TemplatePut", Item)
i = _ObjectCallMethod( grid , "FormatABC", "value + 1",_ObjectCallMethod(grid, "ExecuteTemplate", "_ObObj.ItemToIndex(Item)"));
_ObjectCallMethod(grid, "TemplatePut", "Dim Item")
_ObjectCallMethod(grid, "TemplatePut", Item)
_ObjectCallMethod(grid, "ExecuteTemplate", "Items.CellImage(Item,3) = i");
END
OBJECT column,editor,grid,items;
grid = ObjectByName("AN1") ;
ObjectAssociateEvents("gridEvents", grid);
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectCallMethod( grid , "Images", "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" +
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=");
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Col-1");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "FilterList", 9504);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Col-2");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "FilterList", 9504);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Check");
editor = _ObjectGetProperty( column , "Editor");
_ObjectSetProperty( editor , "EditType", 19);
_ObjectCallMethod(grid, "TemplatePut", "Dim ediObj")
_ObjectCallMethod(grid, "TemplatePut", editor)
_ObjectCallMethod(grid, "ExecuteTemplate", "ediObj.Option(17) = 1");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "DisplayFilterPattern", 0);
_ObjectSetProperty( column , "FilterType", 6);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Image");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "FilterType", 10);
_ObjectSetProperty( column , "FilterList", 9472);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Pos");
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "AllowSort", 0);
_ObjectSetProperty( column , "Width", 32);
_ObjectSetProperty( column , "FormatColumn", "1 apos ``");
_ObjectSetProperty( column , "Position", 0);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(AddItem(`Item A`),1) = `Sub-Item A`");
h = _ObjectCallMethod( items , "AddItem", "Item B");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,1) = `Sub-Item B`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(h,2) = 1");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(AddItem(`Item C`),1) = `Sub-Item C`");
_ObjectSetProperty( grid , "FilterBarFont", _ObjectGetProperty( grid , "Font"));
_ObjectCallMethod(grid, "ExecuteTemplate", "Description(11) = FormatABC(``<fgcolor=808080> ` + value + ` </fgcolor>``,Description(11))");
_ObjectSetProperty( grid , "FilterBarCaption", "all");
_ObjectSetProperty( grid , "FilterBarPromptVisible", 3);
column = _ObjectCallMethod(grid, "ExecuteTemplate", "Columns.Item(0)");
_ObjectSetProperty( column , "FilterType", 240);
_ObjectSetProperty( column , "Filter", "Item A|Item B");
_ObjectCallMethod(grid, "ExecuteTemplate", "Columns.Item(2).Filter = 1");
_ObjectCallMethod( grid , "ApplyFilter");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1063
|
FilterBarCaption ALLUI Keyword ( sample 2, result )
// AddItem event - Occurs after a new Item has been inserted to Items collection.
FUNCTION gridEvents_AddItem(OBJECT grid, INT Item)
_ObjectCallMethod(grid, "TemplatePut", "Dim _ObObj,Item")
_ObjectCallMethod(grid, "TemplatePut", _ObjectGetProperty( grid , "Items"))
_ObjectCallMethod(grid, "TemplatePut", Item)
i = _ObjectCallMethod( grid , "FormatABC", "value + 1",_ObjectCallMethod(grid, "ExecuteTemplate", "_ObObj.ItemToIndex(Item)"));
_ObjectCallMethod(grid, "TemplatePut", "Dim Item")
_ObjectCallMethod(grid, "TemplatePut", Item)
_ObjectCallMethod(grid, "ExecuteTemplate", "Items.CellImage(Item,3) = i");
END
OBJECT column,editor,grid,items;
grid = ObjectByName("AN1") ;
ObjectAssociateEvents("gridEvents", grid);
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectCallMethod( grid , "Images", "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" +
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=");
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Col-1");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "FilterList", 9504);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Col-2");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "FilterList", 9504);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Check");
editor = _ObjectGetProperty( column , "Editor");
_ObjectSetProperty( editor , "EditType", 19);
_ObjectCallMethod(grid, "TemplatePut", "Dim ediObj")
_ObjectCallMethod(grid, "TemplatePut", editor)
_ObjectCallMethod(grid, "ExecuteTemplate", "ediObj.Option(17) = 1");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "DisplayFilterPattern", 0);
_ObjectSetProperty( column , "FilterType", 6);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Image");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "FilterType", 10);
_ObjectSetProperty( column , "FilterList", 9472);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Pos");
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "AllowSort", 0);
_ObjectSetProperty( column , "Width", 32);
_ObjectSetProperty( column , "FormatColumn", "1 apos ``");
_ObjectSetProperty( column , "Position", 0);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(AddItem(`Item A`),1) = `Sub-Item A`");
h = _ObjectCallMethod( items , "AddItem", "Item B");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,1) = `Sub-Item B`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(h,2) = 1");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(AddItem(`Item C`),1) = `Sub-Item C`");
_ObjectSetProperty( grid , "FilterBarFont", _ObjectGetProperty( grid , "Font"));
_ObjectCallMethod(grid, "ExecuteTemplate", "Description(11) = FormatABC(``<fgcolor=808080> ` + value + ` </fgcolor>``,Description(11))");
_ObjectSetProperty( grid , "FilterBarCaption", "(( ( allui replace `[<b>` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `</b>]` with ` </b></bgcolor></fgcolor>` replace " +
"`[<s>` with `<bgcolor=C0C0C0><fgcolor=FFFFFF> ` replace `</s>]` with ` </fgcolor></bgcolor>` ) + `<r><fgcolor=808080>` + ( matc" +
"hitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcou" +
"nt + ` item(s)`) )))");
_ObjectSetProperty( grid , "FilterBarPromptVisible", 3);
column = _ObjectCallMethod(grid, "ExecuteTemplate", "Columns.Item(0)");
_ObjectSetProperty( column , "FilterType", 240);
_ObjectSetProperty( column , "Filter", "Item A|Item B");
_ObjectCallMethod(grid, "ExecuteTemplate", "Columns.Item(2).Filter = 1");
_ObjectCallMethod( grid , "ApplyFilter");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1062
|
FilterBarCaption ALLUI Keyword ( sample 1 )
// AddItem event - Occurs after a new Item has been inserted to Items collection.
FUNCTION gridEvents_AddItem(OBJECT grid, INT Item)
_ObjectCallMethod(grid, "TemplatePut", "Dim _ObObj,Item")
_ObjectCallMethod(grid, "TemplatePut", _ObjectGetProperty( grid , "Items"))
_ObjectCallMethod(grid, "TemplatePut", Item)
i = _ObjectCallMethod( grid , "FormatABC", "value + 1",_ObjectCallMethod(grid, "ExecuteTemplate", "_ObObj.ItemToIndex(Item)"));
_ObjectCallMethod(grid, "TemplatePut", "Dim Item")
_ObjectCallMethod(grid, "TemplatePut", Item)
_ObjectCallMethod(grid, "ExecuteTemplate", "Items.CellImage(Item,3) = i");
END
OBJECT column,editor,grid,items;
grid = ObjectByName("AN1") ;
ObjectAssociateEvents("gridEvents", grid);
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectCallMethod( grid , "Images", "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" +
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=");
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Col-1");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "FilterList", 9504);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Col-2");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "FilterList", 9504);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Check");
editor = _ObjectGetProperty( column , "Editor");
_ObjectSetProperty( editor , "EditType", 19);
_ObjectCallMethod(grid, "TemplatePut", "Dim ediObj")
_ObjectCallMethod(grid, "TemplatePut", editor)
_ObjectCallMethod(grid, "ExecuteTemplate", "ediObj.Option(17) = 1");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "DisplayFilterPattern", 0);
_ObjectSetProperty( column , "FilterType", 6);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Image");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "FilterType", 10);
_ObjectSetProperty( column , "FilterList", 9472);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Pos");
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "AllowSort", 0);
_ObjectSetProperty( column , "Width", 32);
_ObjectSetProperty( column , "FormatColumn", "1 apos ``");
_ObjectSetProperty( column , "Position", 0);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(AddItem(`Item A`),1) = `Sub-Item A`");
h = _ObjectCallMethod( items , "AddItem", "Item B");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,1) = `Sub-Item B`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(h,2) = 1");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(AddItem(`Item C`),1) = `Sub-Item C`");
_ObjectSetProperty( grid , "FilterBarFont", _ObjectGetProperty( grid , "Font"));
_ObjectCallMethod(grid, "ExecuteTemplate", "Description(11) = FormatABC(``<fgcolor=808080> ` + value + ` </fgcolor>``,Description(11))");
_ObjectSetProperty( grid , "FilterBarCaption", "allui");
_ObjectSetProperty( grid , "FilterBarPromptVisible", 3);
column = _ObjectCallMethod(grid, "ExecuteTemplate", "Columns.Item(0)");
_ObjectSetProperty( column , "FilterType", 240);
_ObjectSetProperty( column , "Filter", "Item A|Item B");
_ObjectCallMethod(grid, "ExecuteTemplate", "Columns.Item(2).Filter = 1");
_ObjectCallMethod( grid , "ApplyFilter");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1061
|
FilterBarCaption AVAILABLE Keyword ( sample 2, result )
// AddItem event - Occurs after a new Item has been inserted to Items collection.
FUNCTION gridEvents_AddItem(OBJECT grid, INT Item)
_ObjectCallMethod(grid, "TemplatePut", "Dim _ObObj,Item")
_ObjectCallMethod(grid, "TemplatePut", _ObjectGetProperty( grid , "Items"))
_ObjectCallMethod(grid, "TemplatePut", Item)
i = _ObjectCallMethod( grid , "FormatABC", "value + 1",_ObjectCallMethod(grid, "ExecuteTemplate", "_ObObj.ItemToIndex(Item)"));
_ObjectCallMethod(grid, "TemplatePut", "Dim Item")
_ObjectCallMethod(grid, "TemplatePut", Item)
_ObjectCallMethod(grid, "ExecuteTemplate", "Items.CellImage(Item,3) = i");
END
OBJECT column,editor,grid,items;
grid = ObjectByName("AN1") ;
ObjectAssociateEvents("gridEvents", grid);
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectCallMethod( grid , "Images", "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" +
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=");
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Col-1");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "FilterList", 9504);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Col-2");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "FilterList", 9504);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Check");
editor = _ObjectGetProperty( column , "Editor");
_ObjectSetProperty( editor , "EditType", 19);
_ObjectCallMethod(grid, "TemplatePut", "Dim ediObj")
_ObjectCallMethod(grid, "TemplatePut", editor)
_ObjectCallMethod(grid, "ExecuteTemplate", "ediObj.Option(17) = 1");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "DisplayFilterPattern", 0);
_ObjectSetProperty( column , "FilterType", 6);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Image");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "FilterType", 10);
_ObjectSetProperty( column , "FilterList", 9472);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Pos");
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "AllowSort", 0);
_ObjectSetProperty( column , "Width", 32);
_ObjectSetProperty( column , "FormatColumn", "1 apos ``");
_ObjectSetProperty( column , "Position", 0);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(AddItem(`Item A`),1) = `Sub-Item A`");
h = _ObjectCallMethod( items , "AddItem", "Item B");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,1) = `Sub-Item B`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(h,2) = 1");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(AddItem(`Item C`),1) = `Sub-Item C`");
_ObjectSetProperty( grid , "FilterBarFont", _ObjectGetProperty( grid , "Font"));
_ObjectCallMethod(grid, "ExecuteTemplate", "Description(11) = FormatABC(``<fgcolor=808080> ` + value + ` </fgcolor>``,Description(11))");
_ObjectSetProperty( grid , "FilterBarCaption", "(( ( value replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>` ) + ` ` + ( ava" +
"ilable replace `[` with `<bgcolor=C0C0C0><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>` replace `<s>` with `" +
"` replace `</s>` with `` ) + `<fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount" +
" + 1) + ` result(s)` ) : (`<r><fgcolor=808080>`+ itemcount + ` item(s)`) )))");
_ObjectSetProperty( grid , "FilterBarPromptVisible", 3);
column = _ObjectCallMethod(grid, "ExecuteTemplate", "Columns.Item(0)");
_ObjectSetProperty( column , "FilterType", 240);
_ObjectSetProperty( column , "Filter", "Item A|Item B");
_ObjectCallMethod(grid, "ExecuteTemplate", "Columns.Item(2).Filter = 1");
_ObjectCallMethod( grid , "ApplyFilter");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1060
|
FilterBarCaption AVAILABLE Keyword ( sample 1 )
// AddItem event - Occurs after a new Item has been inserted to Items collection.
FUNCTION gridEvents_AddItem(OBJECT grid, INT Item)
_ObjectCallMethod(grid, "TemplatePut", "Dim _ObObj,Item")
_ObjectCallMethod(grid, "TemplatePut", _ObjectGetProperty( grid , "Items"))
_ObjectCallMethod(grid, "TemplatePut", Item)
i = _ObjectCallMethod( grid , "FormatABC", "value + 1",_ObjectCallMethod(grid, "ExecuteTemplate", "_ObObj.ItemToIndex(Item)"));
_ObjectCallMethod(grid, "TemplatePut", "Dim Item")
_ObjectCallMethod(grid, "TemplatePut", Item)
_ObjectCallMethod(grid, "ExecuteTemplate", "Items.CellImage(Item,3) = i");
END
OBJECT column,editor,grid,items;
grid = ObjectByName("AN1") ;
ObjectAssociateEvents("gridEvents", grid);
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectCallMethod( grid , "Images", "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" +
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=");
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Col-1");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "FilterList", 9504);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Col-2");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "FilterList", 9504);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Check");
editor = _ObjectGetProperty( column , "Editor");
_ObjectSetProperty( editor , "EditType", 19);
_ObjectCallMethod(grid, "TemplatePut", "Dim ediObj")
_ObjectCallMethod(grid, "TemplatePut", editor)
_ObjectCallMethod(grid, "ExecuteTemplate", "ediObj.Option(17) = 1");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "DisplayFilterPattern", 0);
_ObjectSetProperty( column , "FilterType", 6);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Image");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "FilterType", 10);
_ObjectSetProperty( column , "FilterList", 9472);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Pos");
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "AllowSort", 0);
_ObjectSetProperty( column , "Width", 32);
_ObjectSetProperty( column , "FormatColumn", "1 apos ``");
_ObjectSetProperty( column , "Position", 0);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(AddItem(`Item A`),1) = `Sub-Item A`");
h = _ObjectCallMethod( items , "AddItem", "Item B");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,1) = `Sub-Item B`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(h,2) = 1");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(AddItem(`Item C`),1) = `Sub-Item C`");
_ObjectSetProperty( grid , "FilterBarFont", _ObjectGetProperty( grid , "Font"));
_ObjectCallMethod(grid, "ExecuteTemplate", "Description(11) = FormatABC(``<fgcolor=808080> ` + value + ` </fgcolor>``,Description(11))");
_ObjectSetProperty( grid , "FilterBarCaption", "value + ` ` + available");
_ObjectSetProperty( grid , "FilterBarPromptVisible", 3);
column = _ObjectCallMethod(grid, "ExecuteTemplate", "Columns.Item(0)");
_ObjectSetProperty( column , "FilterType", 240);
_ObjectSetProperty( column , "Filter", "Item A|Item B");
_ObjectCallMethod(grid, "ExecuteTemplate", "Columns.Item(2).Filter = 1");
_ObjectCallMethod( grid , "ApplyFilter");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1059
|
Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 3, results )
OBJECT column,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Col-1");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "FilterList", 9504);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Col-2");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "FilterList", 9504);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Pos");
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "AllowSort", 0);
_ObjectSetProperty( column , "Width", 32);
_ObjectSetProperty( column , "FormatColumn", "1 apos ``");
_ObjectSetProperty( column , "Position", 0);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(AddItem(`Item A`),1) = `Sub-Item A`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(AddItem(`Item B`),1) = `Sub-Item B`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(AddItem(`Item C`),1) = `Sub-Item C`");
_ObjectSetProperty( grid , "FilterBarFont", _ObjectGetProperty( grid , "Font"));
_ObjectCallMethod(grid, "ExecuteTemplate", "Description(11) = FormatABC(``<fgcolor=808080>` + value + `</fgcolor>``,Description(11))");
_ObjectSetProperty( grid , "FilterBarCaption", "(`<b>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `` : `` ) + `<r>` + abs(matchitemcount + 1) +" +
" ` result(s)` ) : (`<fgcolor=808080>`+ itemcount + ` item(s)`) )) replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replac" +
"e `]` with ` </b></bgcolor></fgcolor>`");
_ObjectSetProperty( grid , "FilterBarPromptVisible", 256);
column = _ObjectCallMethod(grid, "ExecuteTemplate", "Columns.Item(0)");
_ObjectSetProperty( column , "FilterType", 240);
_ObjectSetProperty( column , "Filter", "Item A|Item B");
column = _ObjectCallMethod(grid, "ExecuteTemplate", "Columns.Item(1)");
_ObjectSetProperty( column , "FilterType", 3);
_ObjectSetProperty( column , "Filter", "*B");
_ObjectCallMethod( grid , "ApplyFilter");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1058
|
Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 2 )
OBJECT column,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Col-1");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "FilterList", 9504);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Col-2");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "FilterList", 9504);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Pos");
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "AllowSort", 0);
_ObjectSetProperty( column , "Width", 32);
_ObjectSetProperty( column , "FormatColumn", "1 apos ``");
_ObjectSetProperty( column , "Position", 0);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(AddItem(`Item A`),1) = `Sub-Item A`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(AddItem(`Item B`),1) = `Sub-Item B`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(AddItem(`Item C`),1) = `Sub-Item C`");
_ObjectSetProperty( grid , "FilterBarFont", _ObjectGetProperty( grid , "Font"));
_ObjectCallMethod(grid, "ExecuteTemplate", "Description(11) = FormatABC(``<fgcolor=808080>` + value + `</fgcolor>``,Description(11))");
_ObjectSetProperty( grid , "FilterBarCaption", "value replace `[` with `<bgcolor=000000><fgcolor=FFFFFF><b> ` replace `]` with ` </b></bgcolor></fgcolor>`");
_ObjectSetProperty( grid , "FilterBarPromptVisible", 256);
column = _ObjectCallMethod(grid, "ExecuteTemplate", "Columns.Item(0)");
_ObjectSetProperty( column , "FilterType", 240);
_ObjectSetProperty( column , "Filter", "Item A|Item B");
column = _ObjectCallMethod(grid, "ExecuteTemplate", "Columns.Item(1)");
_ObjectSetProperty( column , "FilterType", 3);
_ObjectSetProperty( column , "Filter", "*B");
_ObjectCallMethod( grid , "ApplyFilter");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1057
|
Is it possible to somehow highlight the column's name different than its filter value in the control's filter bar ( sample 1 )
OBJECT column,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Col-1");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "FilterList", 9504);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Col-2");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "FilterList", 9504);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Pos");
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "AllowSort", 0);
_ObjectSetProperty( column , "Width", 32);
_ObjectSetProperty( column , "FormatColumn", "1 apos ``");
_ObjectSetProperty( column , "Position", 0);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(AddItem(`Item A`),1) = `Sub-Item A`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(AddItem(`Item B`),1) = `Sub-Item B`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(AddItem(`Item C`),1) = `Sub-Item C`");
_ObjectCallMethod(grid, "ExecuteTemplate", "Description(11) = FormatABC(``<fgcolor=808080>` + value + `</fgcolor>``,Description(11))");
_ObjectSetProperty( grid , "FilterBarCaption", "value replace `[` with `<fgcolor=808080>[` replace `]` with `]</fgcolor>`");
_ObjectSetProperty( grid , "FilterBarPromptVisible", 256);
column = _ObjectCallMethod(grid, "ExecuteTemplate", "Columns.Item(0)");
_ObjectSetProperty( column , "FilterType", 240);
_ObjectSetProperty( column , "Filter", "Item A|Item B");
column = _ObjectCallMethod(grid, "ExecuteTemplate", "Columns.Item(1)");
_ObjectSetProperty( column , "FilterType", 3);
_ObjectSetProperty( column , "Filter", "*B");
_ObjectCallMethod( grid , "ApplyFilter");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1056
|
Is it possible to automatically displays the control's filter label to the right
OBJECT column,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Item");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "FilterList", 9504);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Pos");
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "AllowSort", 0);
_ObjectSetProperty( column , "Width", 32);
_ObjectSetProperty( column , "FormatColumn", "1 apos ``");
_ObjectSetProperty( column , "Position", 0);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", "Item A");
_ObjectCallMethod( items , "AddItem", "Item B");
_ObjectCallMethod( items , "AddItem", "Item C");
_ObjectSetProperty( grid , "FilterBarCaption", "`<r>` + value");
_ObjectSetProperty( grid , "FilterBarPromptVisible", 1280);
column = _ObjectCallMethod(grid, "ExecuteTemplate", "Columns.Item(0)");
_ObjectSetProperty( column , "FilterType", 240);
_ObjectSetProperty( column , "Filter", "Item B");
_ObjectCallMethod( grid , "ApplyFilter");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1055
|
How can I get the number of results/items being shown in the control's filter bar (sample 4)
OBJECT column,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Item");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "FilterList", 9504);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Pos");
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "AllowSort", 0);
_ObjectSetProperty( column , "Width", 32);
_ObjectSetProperty( column , "FormatColumn", "1 apos ``");
_ObjectSetProperty( column , "Position", 0);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", "Item A");
_ObjectCallMethod( items , "AddItem", "Item B");
_ObjectCallMethod( items , "AddItem", "Item C");
_ObjectSetProperty( grid , "FilterBarFont", _ObjectGetProperty( grid , "Font"));
_ObjectSetProperty( grid , "FilterBarPrompt", _ObjectCallMethod( grid , "FormatABC", "`<b>` + value",_ObjectGetProperty( grid , "FilterBarPrompt")));
_ObjectSetProperty( grid , "FilterBarCaption", "`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `<br>` : `` ) + `<r>` + abs(matchitemcount " +
"+ 1) + ` result(s)` ) : (`<fgcolor=808080>`+ itemcount + ` item(s)`) )");
_ObjectSetProperty( grid , "FilterBarPromptVisible", 3591);
_ObjectCallMethod( grid , "EndUpdate");
|
|
1054
|
How can I get the number of results being shown in the control's filter bar (sample 3)
OBJECT column,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Item") , "DisplayFilterButton", -1);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Pos");
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "AllowSort", 0);
_ObjectSetProperty( column , "Width", 32);
_ObjectSetProperty( column , "FormatColumn", "1 apos ``");
_ObjectSetProperty( column , "Position", 0);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", "Item A");
_ObjectCallMethod( items , "AddItem", "Item B");
_ObjectCallMethod( items , "AddItem", "Item C");
_ObjectSetProperty( grid , "FilterBarFont", _ObjectGetProperty( grid , "Font"));
_ObjectSetProperty( grid , "FilterBarCaption", "`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? ( ( len(value) ? `<br>` : `` ) + `<r>` + abs(matchitemcount " +
"+ 1) + ` result(s)` ) : ``)");
_ObjectSetProperty( grid , "FilterBarPromptVisible", 2055);
column = _ObjectCallMethod(grid, "ExecuteTemplate", "Columns.Item(0)");
_ObjectSetProperty( column , "FilterType", 240);
_ObjectSetProperty( column , "Filter", "Item A|Item B");
_ObjectCallMethod( grid , "ApplyFilter");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1053
|
How can I get the number of results being shown in the control's filter bar (sample 2, compact)
OBJECT column,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Item") , "DisplayFilterButton", -1);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Pos");
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "AllowSort", 0);
_ObjectSetProperty( column , "Width", 32);
_ObjectSetProperty( column , "FormatColumn", "1 apos ``");
_ObjectSetProperty( column , "Position", 0);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", "Item A");
_ObjectCallMethod( items , "AddItem", "Item B");
_ObjectCallMethod( items , "AddItem", "Item C");
_ObjectSetProperty( grid , "FilterBarFont", _ObjectGetProperty( grid , "Font"));
_ObjectSetProperty( grid , "FilterBarCaption", "`<b><r>` + value + `</b><fgcolor=808080>` + ( matchitemcount < 0 ? `<off -4> ` + abs(matchitemcount + 1) + ` result(s)` : ``)");
_ObjectSetProperty( grid , "FilterBarPromptVisible", 2071);
column = _ObjectCallMethod(grid, "ExecuteTemplate", "Columns.Item(0)");
_ObjectSetProperty( column , "FilterType", 240);
_ObjectSetProperty( column , "Filter", "Item A|Item B");
_ObjectCallMethod( grid , "ApplyFilter");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1052
|
How can I get the number of results being shown in the control's filter bar (sample 1)
OBJECT column,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Item") , "DisplayFilterButton", -1);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Pos");
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "AllowSort", 0);
_ObjectSetProperty( column , "Width", 32);
_ObjectSetProperty( column , "FormatColumn", "1 apos ``");
_ObjectSetProperty( column , "Position", 0);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", "Item A");
_ObjectCallMethod( items , "AddItem", "Item B");
_ObjectCallMethod( items , "AddItem", "Item C");
_ObjectSetProperty( grid , "FilterBarFont", _ObjectGetProperty( grid , "Font"));
_ObjectSetProperty( grid , "FilterBarCaption", "`<b>` + value + `</b><r><fgcolor=808080>` + ( matchitemcount < 0 ? abs(matchitemcount + 1) + ` result(s)` : ``)");
_ObjectSetProperty( grid , "FilterBarPromptVisible", 7);
column = _ObjectCallMethod(grid, "ExecuteTemplate", "Columns.Item(0)");
_ObjectSetProperty( column , "FilterType", 240);
_ObjectSetProperty( column , "Filter", "Item A|Item B");
_ObjectCallMethod( grid , "ApplyFilter");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1051
|
FilterBarCaption Predefined Keywords
// AfterExpandItem event - Fired after an item is expanded (collapsed).
FUNCTION gridEvents_AfterExpandItem(OBJECT grid, INT Item)
_ObjectCallMethod( grid , "Refresh");
END
OBJECT column,editor,grid,items;
grid = ObjectByName("AN1") ;
ObjectAssociateEvents("gridEvents", grid);
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "LinesAtRoot", -1);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Item") , "DisplayFilterButton", -1);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Check");
editor = _ObjectGetProperty( column , "Editor");
_ObjectSetProperty( editor , "EditType", 19);
_ObjectCallMethod(grid, "TemplatePut", "Dim ediObj")
_ObjectCallMethod(grid, "TemplatePut", editor)
_ObjectCallMethod(grid, "ExecuteTemplate", "ediObj.Option(17) = 1");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "DisplayFilterPattern", 0);
_ObjectSetProperty( column , "FilterType", 6);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Pos");
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "AllowSort", 0);
_ObjectSetProperty( column , "Width", 32);
_ObjectSetProperty( column , "FormatColumn", "1 apos ``");
_ObjectSetProperty( column , "Position", 0);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", "Item A");
h = _ObjectCallMethod( items , "AddItem", "Item B");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(InsertItem(h,,`Sub-Item B1`),1) = 1");
_ObjectCallMethod( items , "InsertItem", h,"","Sub-Item B2");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod( items , "AddItem", "Item C");
_ObjectSetProperty( grid , "FilterInclude", 1);
_ObjectSetProperty( grid , "FilterBarFont", _ObjectGetProperty( grid , "Font"));
_ObjectSetProperty( grid , "FilterBarCaption", "`<fgcolor=0000FF><i>value/current</i></fgcolor>: <fgcolor=808080>` + value + `</fgcolor>` + `<br><fgcolor=0000FF><i>available</" +
"i></fgcolor>: ` + available + `<br><fgcolor=0000FF><i>allui</i></fgcolor>: ` + allui + `<br><fgcolor=0000FF><i>all</i></fgcolor>" +
": ` + all + `<br><fgcolor=0000FF><i>itemcount</i></fgcolor>: <fgcolor=808080>` + itemcount + `</fgcolor>`+ `<br><fgcolor=0000FF>" +
"<i>visibleitemcount</i></fgcolor>: <fgcolor=808080>` + visibleitemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><i>matchitemcount</" +
"i></fgcolor>: <fgcolor=808080>` + matchitemcount + `</fgcolor>`+ `<br><fgcolor=0000FF><i>promptpattern</i></fgcolor>: <fgcolor=8" +
"08080>` + promptpattern + `</fgcolor>`+ `<br><fgcolor=0000FF><i>leafitemcount</i></fgcolor>: <fgcolor=808080>` + leafitemcount +" +
" `</fgcolor>`");
_ObjectSetProperty( grid , "FilterBarPromptPattern", "B");
_ObjectSetProperty( grid , "FilterBarPromptVisible", 7);
column = _ObjectCallMethod(grid, "ExecuteTemplate", "Columns.Item(0)");
_ObjectSetProperty( column , "FilterType", 240);
_ObjectSetProperty( column , "Filter", "Item A|Item B");
_ObjectCallMethod( grid , "ApplyFilter");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1050
|
I am using filter prompt feature, and also column's filter, just wondering if possible to compact displaying the filter bar so it won't show on multiple lines
OBJECT column,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Item") , "DisplayFilterButton", -1);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Pos");
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "AllowSort", 0);
_ObjectSetProperty( column , "Width", 32);
_ObjectSetProperty( column , "FormatColumn", "1 apos ``");
_ObjectSetProperty( column , "Position", 0);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", "Item A");
_ObjectCallMethod( items , "AddItem", "Item B");
_ObjectCallMethod( items , "AddItem", "Item C");
_ObjectSetProperty( grid , "FilterBarFont", _ObjectGetProperty( grid , "Font"));
_ObjectSetProperty( grid , "FilterBarCaption", "`<r><i><fgcolor=808080><upline><solidline><sha ;;0>` + value");
_ObjectSetProperty( grid , "FilterBarPromptPattern", "B");
_ObjectSetProperty( grid , "FilterBarPromptVisible", 2067);
column = _ObjectCallMethod(grid, "ExecuteTemplate", "Columns.Item(0)");
_ObjectSetProperty( column , "FilterType", 240);
_ObjectSetProperty( column , "Filter", "Item A|Item B");
_ObjectCallMethod( grid , "ApplyFilter");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1049
|
Just wondering if it is possible to show the filter bar's close button on the right ( sample 2 )
OBJECT column,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Item") , "DisplayFilterButton", -1);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Pos");
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "AllowSort", 0);
_ObjectSetProperty( column , "Width", 32);
_ObjectSetProperty( column , "FormatColumn", "1 apos ``");
_ObjectSetProperty( column , "Position", 0);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", "Item A");
_ObjectCallMethod( items , "AddItem", "Item B");
_ObjectCallMethod( items , "AddItem", "Item C");
_ObjectSetProperty( grid , "FilterBarPromptVisible", 1281);
_ObjectSetProperty( grid , "FilterBarPrompt", _ObjectCallMethod( grid , "FormatABC", "`<r>` + value",_ObjectGetProperty( grid , "FilterBarPrompt")));
_ObjectCallMethod( grid , "EndUpdate");
|
|
1048
|
Just wondering if it is possible to show the filter bar's close button on the right ( sample 1 )
OBJECT column,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "RightToLeft", -1);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Item") , "DisplayFilterButton", -1);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Pos");
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "AllowSort", 0);
_ObjectSetProperty( column , "Width", 32);
_ObjectSetProperty( column , "FormatColumn", "1 apos ``");
_ObjectSetProperty( column , "Position", 0);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", "Item A");
_ObjectCallMethod( items , "AddItem", "Item B");
_ObjectCallMethod( items , "AddItem", "Item C");
_ObjectSetProperty( grid , "FilterBarPromptVisible", 257);
_ObjectCallMethod( grid , "EndUpdate");
|
|
1047
|
How can I change the visual appearance of the filter bar's close button (EBN)
OBJECT appearance,column,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
appearance = _ObjectGetProperty( grid , "VisualAppearance");
_ObjectCallMethod( appearance , "Add", 1,"gBFLBCJwBAEHhEJAAEhABHQDg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLOg7IJ" +
"jyI4/SJAYCydKAWhxIaZKJHCZoEDaTAADCNVAQp6MEIJVbVEI0e79OgBLp/Z7kECIJJAaRjHQdJxGLA8EhtCQhCZteK6SgMKJYXhWQYRXI1JwvMBrWrdQjiOYELQtMKm" +
"SZNLYGG4dR5SVJbcYhSYsRRFMoyDIOXYDLKsdYqSpXIThObEGgaPqJYjsUjCMKnR7HVIURrBPC9TBPE69ZgmC6ucKPX51ShKFaBWDZcwFAS+UBuYCAILiEAQGZ1XT8OR" +
"OicbgJgSTJRlCaZeDsHY7QGR4xkSYp3CaExZAQMgalQYAwjCAAfBANxcA2TgKAUOpDCGFhKg0RpXCwCwDHQHQHEyAIkCkOhbFOGA8A8DohBgRg9AccZcn8EpEjMLI2C2" +
"DYxAgQgvAIUIVkoAAPBQDJlECTZ3CCYwDACQwUA8A5MCAWAWDiQi4l8aQOEgLJuBgBgDmYFAzEoIoIl0WALgKYJbBABADAAHgHg8VAMmqCQQDMXABAATYwTmNwBDATJX" +
"AiAgjHmNQ5lgQ5QEQEQMmcWg/GwD5ylyNw2gMcJcjsBgBgOQQDDhRpVAMMwnDBFw1B0Ax8D0DxOmmJJIGQTY5hGMAwkwM4CAYLZAmAOJnAqAojiIGg6iieYkmeAYOHaK" +
"JDCyCwjH6AoggsQpQliAJLhgaJ0CESBTnyDwjk+cg4g4P5IHIHJ+BWRRzlYWAxiOUxihsY4KjKLJRGqC44FCegkkkM58iAKAPnIWIWD8SRSFSfQnkmewUhYP4GiGKJ7G" +
"0TIbCSUoggqUo0lAQ4LnEcBcD8Coiiif4nE+eAAn2HpOkcFJqi4T5SkyMw/kqQown8IBIBOdA+A+DJrBqVxXEqYo4lCApLhGHBnD8S4ymyfxmg+cwQkQP5egOUZIWoEA" +
"kjIeIPBMBJBD+TBjBifwvkuc58hQJQPmFrYykkchclSApKjGOBuD+TRDFCfw3mmIxNi8FxFlOXhVC4aYDFyPgvg2YBcBcLZGCGCJ0DSLRzGSWQ/lmY5+mEP5gmMDBZRS" +
"MRsFsOxMhMJJ/DsTpTnwaQaE+N5ojuNhdEYNI5C4TZJO1GRDmCaxnA2Yx4n8IpIjOTBQBQC5TgyYw7gUYRYikC0BYRwsDQBoB8eA6Q2hsE0BUXgywZtYCyHMKwnxSAhA" +
"QHkIQhRrBaDsCwA4ERiB2EWAIYIXhhiVEgAEUYwwYjyASLge4FhHgRDkM8OQih0jWPkGgBBAQ");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Item") , "DisplayFilterButton", -1);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Pos");
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "AllowSort", 0);
_ObjectSetProperty( column , "Width", 32);
_ObjectSetProperty( column , "FormatColumn", "1 apos ``");
_ObjectSetProperty( column , "Position", 0);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", "Item A");
_ObjectCallMethod( items , "AddItem", "Item B");
_ObjectCallMethod( items , "AddItem", "Item C");
_ObjectSetProperty( grid , "FilterBarPromptVisible", 257);
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(1) = 16777216");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1046
|
How can I change the visual appearance of the filter bar's close button (solid)
OBJECT column,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Item") , "DisplayFilterButton", -1);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Pos");
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "AllowSort", 0);
_ObjectSetProperty( column , "Width", 32);
_ObjectSetProperty( column , "FormatColumn", "1 apos ``");
_ObjectSetProperty( column , "Position", 0);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", "Item A");
_ObjectCallMethod( items , "AddItem", "Item B");
_ObjectCallMethod( items , "AddItem", "Item C");
_ObjectSetProperty( grid , "FilterBarPromptVisible", 1);
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(1) = 255");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1045
|
Is it possible to prevent definitely showing the filter bar's close button
OBJECT column,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Item") , "DisplayFilterButton", -1);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Pos");
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "AllowSort", 0);
_ObjectSetProperty( column , "Width", 32);
_ObjectSetProperty( column , "FormatColumn", "1 apos ``");
_ObjectSetProperty( column , "Position", 0);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", "Item A");
_ObjectCallMethod( items , "AddItem", "Item B");
_ObjectCallMethod( items , "AddItem", "Item C");
_ObjectSetProperty( grid , "FilterBarPromptVisible", 1);
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(1) = -1");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1044
|
Is it possible to show the close button only if there is a filter applied
OBJECT column,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Item") , "DisplayFilterButton", -1);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Pos");
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "AllowSort", 0);
_ObjectSetProperty( column , "Width", 32);
_ObjectSetProperty( column , "FormatColumn", "1 apos ``");
_ObjectSetProperty( column , "Position", 0);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", "Item A");
_ObjectCallMethod( items , "AddItem", "Item B");
_ObjectCallMethod( items , "AddItem", "Item C");
_ObjectSetProperty( grid , "FilterBarPromptVisible", 513);
_ObjectCallMethod( grid , "EndUpdate");
|
|
1043
|
The control's filter bar is not closed once I click the close button (toggle)
OBJECT column,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Item") , "DisplayFilterButton", -1);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Pos");
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "AllowSort", 0);
_ObjectSetProperty( column , "Width", 32);
_ObjectSetProperty( column , "FormatColumn", "1 apos ``");
_ObjectSetProperty( column , "Position", 0);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", "Item A");
_ObjectCallMethod( items , "AddItem", "Item B");
_ObjectCallMethod( items , "AddItem", "Item C");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.LockedItemCount(2) = 1");
h = _ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.LockedItem(2,0)");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemDivider(h) = 0");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(h,0) = `<c><fgcolor=808080>Press the CTRL + F to turn on/off the control's filter bar. ALT + Up/Down moves the focus.`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValueFormat(h,0) = 1");
_ObjectSetProperty( grid , "FilterBarCaption", "`<r><fgcolor=808080>` + value");
_ObjectSetProperty( grid , "FilterBarPromptPattern", "B");
_ObjectSetProperty( grid , "FilterBarPromptVisible", 2323);
column = _ObjectCallMethod(grid, "ExecuteTemplate", "Columns.Item(0)");
_ObjectSetProperty( column , "FilterType", 240);
_ObjectSetProperty( column , "Filter", "Item B");
_ObjectCallMethod( grid , "ApplyFilter");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1042
|
How can I display the control's filter on a single line
OBJECT column,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Item") , "DisplayFilterButton", -1);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Pos");
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "AllowSort", 0);
_ObjectSetProperty( column , "Width", 32);
_ObjectSetProperty( column , "FormatColumn", "1 apos ``");
_ObjectSetProperty( column , "Position", 0);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", "Item A");
_ObjectCallMethod( items , "AddItem", "Item B");
_ObjectCallMethod( items , "AddItem", "Item C");
_ObjectSetProperty( grid , "FilterBarCaption", "len(value) ? `filter for: <fgcolor 808080>` + value : `<fgcolor 808080>no filter`");
_ObjectSetProperty( grid , "FilterBarPromptVisible", 18);
column = _ObjectCallMethod(grid, "ExecuteTemplate", "Columns.Item(0)");
_ObjectSetProperty( column , "FilterType", 240);
_ObjectSetProperty( column , "Filter", "Item A|Item B");
_ObjectCallMethod( grid , "ApplyFilter");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1041
|
How can I display the control's filter on a single line (prompt-combined)
OBJECT column,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Item") , "DisplayFilterButton", -1);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Pos");
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "AllowSort", 0);
_ObjectSetProperty( column , "Width", 32);
_ObjectSetProperty( column , "FormatColumn", "1 apos ``");
_ObjectSetProperty( column , "Position", 0);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", "Item A");
_ObjectCallMethod( items , "AddItem", "Item B");
_ObjectCallMethod( items , "AddItem", "Item C");
_ObjectSetProperty( grid , "FilterBarCaption", "`<r>` + value");
_ObjectSetProperty( grid , "FilterBarPromptVisible", 2067);
column = _ObjectCallMethod(grid, "ExecuteTemplate", "Columns.Item(0)");
_ObjectSetProperty( column , "FilterType", 240);
_ObjectSetProperty( column , "Filter", "Item A|Item B");
_ObjectCallMethod( grid , "ApplyFilter");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1040
|
How can I get the number of results after a filter is applied
// Click event - Occurs when the user presses and then releases the left mouse button over the grid control.
FUNCTION gridEvents_Click()
_ObjectCallMethod( grid , "ClearFilter");
END
// FilterChange event - Occurs when filter was changed.
FUNCTION gridEvents_FilterChange()
Message( "Items.MatchItemCount" );
Message( _ObjectGetProperty( _ObjectGetProperty( grid , "Items") , "MatchItemCount") );
Message( _ObjectCallMethod( grid , "FormatABC", "value < 0 ? `filter applied: ` + abs(value + 1) + ` result(s)` : `no filter`",_ObjectGetProperty( _ObjectGetProperty( grid , "Items") , "MatchItemCount")) );
END
OBJECT column,grid,items;
grid = ObjectByName("AN1") ;
ObjectAssociateEvents("gridEvents", grid);
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Item") , "DisplayFilterButton", -1);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Pos");
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "AllowSort", 0);
_ObjectSetProperty( column , "Width", 32);
_ObjectSetProperty( column , "FormatColumn", "1 apos ``");
_ObjectSetProperty( column , "Position", 0);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", "Item A");
_ObjectCallMethod( items , "AddItem", "Item B");
_ObjectCallMethod( items , "AddItem", "Item C");
_ObjectSetProperty( grid , "FilterBarPromptVisible", 1);
_ObjectSetProperty( grid , "FilterBarPromptPattern", "Item");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1039
|
How can I programmatically clear the control's filter
// Click event - Occurs when the user presses and then releases the left mouse button over the grid control.
FUNCTION gridEvents_Click()
_ObjectCallMethod( grid , "ClearFilter");
END
OBJECT column,grid,items;
grid = ObjectByName("AN1") ;
ObjectAssociateEvents("gridEvents", grid);
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Item") , "DisplayFilterButton", -1);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Pos");
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "AllowSort", 0);
_ObjectSetProperty( column , "Width", 32);
_ObjectSetProperty( column , "FormatColumn", "1 apos ``");
_ObjectSetProperty( column , "Position", 0);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", "Item A");
_ObjectCallMethod( items , "AddItem", "Item B");
_ObjectCallMethod( items , "AddItem", "Item C");
_ObjectSetProperty( grid , "FilterBarPromptVisible", 1);
_ObjectSetProperty( grid , "FilterBarPromptPattern", "B");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1038
|
Is it possible to prevent closing the control's filter bar, so it is always shown (prompt-combined)
OBJECT column,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Item") , "DisplayFilterButton", -1);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Pos");
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "AllowSort", 0);
_ObjectSetProperty( column , "Width", 32);
_ObjectSetProperty( column , "FormatColumn", "1 apos ``");
_ObjectSetProperty( column , "Position", 0);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", "Item A");
_ObjectCallMethod( items , "AddItem", "Item B");
_ObjectCallMethod( items , "AddItem", "Item C");
_ObjectSetProperty( grid , "FilterBarPromptPattern", "B");
_ObjectSetProperty( grid , "FilterBarPromptVisible", 3);
column = _ObjectCallMethod(grid, "ExecuteTemplate", "Columns.Item(0)");
_ObjectSetProperty( column , "FilterType", 240);
_ObjectSetProperty( column , "Filter", "Item B");
_ObjectCallMethod( grid , "ApplyFilter");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1037
|
Is it possible to prevent closing the control's filter bar, so it is always shown (prompt)
OBJECT column,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Item") , "DisplayFilterButton", -1);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Pos");
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "AllowSort", 0);
_ObjectSetProperty( column , "Width", 32);
_ObjectSetProperty( column , "FormatColumn", "1 apos ``");
_ObjectSetProperty( column , "Position", 0);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", "Item A");
_ObjectCallMethod( items , "AddItem", "Item B");
_ObjectCallMethod( items , "AddItem", "Item C");
_ObjectSetProperty( grid , "FilterBarPromptVisible", 1);
_ObjectSetProperty( grid , "FilterBarPromptPattern", "B");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1036
|
Is it possible to prevent closing the control's filter bar, so it is always shown
OBJECT column,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Item") , "DisplayFilterButton", -1);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Pos");
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "AllowSort", 0);
_ObjectSetProperty( column , "Width", 32);
_ObjectSetProperty( column , "FormatColumn", "1 apos ``");
_ObjectSetProperty( column , "Position", 0);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", "Item A");
_ObjectCallMethod( items , "AddItem", "Item B");
_ObjectCallMethod( items , "AddItem", "Item C");
_ObjectSetProperty( grid , "FilterBarCaption", "len(value) = 0 ? `<fgcolor=808080>no filter` : value");
_ObjectSetProperty( grid , "FilterBarPromptVisible", 2);
column = _ObjectCallMethod(grid, "ExecuteTemplate", "Columns.Item(0)");
_ObjectSetProperty( column , "FilterType", 240);
_ObjectSetProperty( column , "Filter", "Item B");
_ObjectCallMethod( grid , "ApplyFilter");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1035
|
How can I change the visual appearance of the +/- buttons, open/close glyphs as current visual theme (method 4)
OBJECT grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "LinesAtRoot", -1);
_ObjectSetProperty( grid , "VisualDesign", "gBFLBWIgBAEHhEJAEGg6VAkHeLpgwChAOhULB8XAUUg8MAAREEHGMcgRCJ0ei8dhABDEcQAAYAQGKIYBkAKBQAGaAoDDMOQwQwAAxjGKEEwsACEIrjKCRShyCYZRhGc" +
"TSBCIZBqEqSZLiEZRQiiCYsS5GQBRWAkEwiBiEQTjea5CgOIAFS7LIqjRQEBxhIaZYIGaiQADENo9TxIMZAfBIHShK6NJABCCSQKkYx0HScRijDIEFwGIQmbKiej4DCi" +
"CQQW7OYYRVCNMQSfa8HivJyrcamfp/YBgOBYHb1eLVPR5LwfPCGUw1P6PLxkORZHimK4tSLHV7xVpMIwZFafIQhCCoHomS5NU7UNR0TQUFx9FaGX7rDDsGwLAJ6XRgF4" +
"bg2VpnHePpenAN4bH2GwHFmApSjEGBLnWOpRGOTBZHOegrE6BxPiWVJqCweQrn0LgJAWJBjwgaw1gKO5HmWch5h+fovF+G5bmich4BgfZkB8dynRUVYqiUR5rnmex/F6" +
"N4tn2AJfnebZ3DEXw3HWXgzAyIwgicKJKBKEIhCeCgiHyHYFEmSAFmqBghFIdgSCeIJygYDAyAgJx6AoIINAMOJNCgCZCGoGoLmMCI+CwJoihMNglCCIhzFCUg0EmMhg" +
"hWDBkAiQg9CUY4jEYN4Jk2IxklYJoJHIUg+CSZJSESFwkkkGI+FOFIJEIRhPhMCRJCSVoRrSBhiDgTZjHYT4PEkYhwhgJYm0SaIaiaSYuE+GQNlmCIBGCJxjhiZQ5AkM" +
"hAg6ExJCkPhPguaAiFYUAlAkKZ0g6HoOEmWR/GHcA4m0OwIlIJIHCRgQshGJhpjoaocieaZiC6GAimkUgehIOwnGYGYIGkah6jaE4rg6SpCjKK5rEOMYlGIGIihKOggl" +
"oFoqj6L5aGaBo6CkGIkAQjiPpCAAaJILCTJQlKPACDaXJgmSaJsnCdJ4nygKEoijKQpSmKcqCpKoqysK0rivLAsSyLMtC1LYty4Lkui7LwvS+L8wDBMIwzEMUxjHMgyT" +
"KMszDNM4zzQNE0jTNQ1TWNc2DZNo2zcN03jfOA4TiOM5DlOY5zoOk6jrOw7TuO88DxPI8z0PU9j3Pg+T6Ps/D9P4/0AQFAkDQRBUGQdCEJQpC0MQ1DkPRBEUSRNFEVBh" +
"FkXRhGQ9D6Dxfh+W5gGGd4QH2XQjCmDpFFaKoVB+D5Xmed5+H8YAHnIAh9EwV5Fl0d4MkMKJICmSgygSJAoEmMUCIPgnDCCIOQFYCxJjwFoCcA4kxoF+AIJkAgExegDE" +
"gEYQInAzCUAIOEGgfxiiRDYF1Q4EQ2BSCaEQYwbAiKREMpRSymFNDIAkAxT6oVRgSA2qdVKq1WqvVirMZQUhSCnBUMoIgoQRgnGSIQUgkg1hIHYAkAYMROAmHiLsE4xx" +
"SCxBwEwCQ0wmDdBsE0GYXBtg2CSPMFIuwYiQBYBQeAcwOCnBCCZgw0g0glBONAQgqQThCGgPQGoBQfiRGmOEZIPAXjsBoPAO4HRThhA0EQSA5BAgaCKJIGg3QdhOCmNU" +
"BoQAijTCIF0FwQxpCHDIPAYYMQGgtCmFcaQtRAjZCyFYSojQ2B2BoKwIYFApBXEIBsIQ1QsAWAWEwaA1xCgjAoIAQBAQ=");
_ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Column");
items = _ObjectGetProperty( grid , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
h = _ObjectCallMethod( items , "AddItem", "Root 2");
_ObjectCallMethod( items , "InsertItem", h,"","Child");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1034
|
How can I change the visual appearance of the +/- buttons, open/close glyphs as current visual theme (method 3)
OBJECT appearance,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
appearance = _ObjectGetProperty( grid , "VisualAppearance");
_ObjectCallMethod( appearance , "Add", 3,"gBFLBCJwBAEHhEJAAEhABDwCg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQS" +
"BcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+Opf" +
"DxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4" +
"llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJegef4zluaJ3nqPJeCYH4BAeX5TDLBpVGqKRRnwf4flefZtHsX54BYAR/F+EwVnUd5eAMMJKDIChygyIQpAoEh4iIJ5Jlg" +
"XIcgCXpIGoFwnGEQh6BEKBgmMIICHgIJCAiUAzgyUoAhwJohkiRgygwYpiGoKwzGIcgKCkNQNCMRIbCYCRYk4QoMiOchWDwNBjhiJJaDYTRiGiFwlCQAhOE8JBJHITIR" +
"gwZRZFCFCZBkOIUhKTRpCWAwgGYQ4El4NxlBifIWCcCYCFoaoMGaKYyG6GxlBmGJdhkCAWBIeA5g4U4QhMJAImkPIShRVxGgQJRlCIUISh+SJpnCZIeBgFgiHgO4OlOM" +
"INCISByECDQikkGhuh2JwpmqBogCKaYiC6FwhmkQ4yHgYgYiaHopiuaRakCbIsisSpGjYOwaHYKYMCkK5CA2IxrCwCwFigaJrkLTI6lcdANAEgIA=");
_ObjectCallMethod( appearance , "Add", 1,"CP:3 -2 -2 2 2");
_ObjectCallMethod( appearance , "Add", 4,"gBFLBCJwBAEHhEJAAEhABEICg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQS" +
"BcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+Opf" +
"DxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4" +
"llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJeg8X4rluaZ3niGB+AQHx/EyShjjEVYqiUR5rnmex/GAB5+AIf4gEeXJFHyXZ3gCTAygyAociMKBKEKBIeCiCZyHYFAnCE" +
"eBkh+BghFgRIegOCgYCySAgh4CAkgINAMmMNIgCcCYjn4LoLmMCJGDKC5ijIagoDMYhCAoJg1A0IxEhsJgJFiThChCY5yFYPA0GOGIYloNhNGIaIXCUJACE4TwkEkchO" +
"FSFYlFkXhUCUCQZEYTglCSMxaEkYJIBmFJhDeDZZEYPwlgmQhghaGqVDoa4bGaeY6FGGZNlmFIBGEJ4jhiZQ5AkMhAg6E5JCkRoGCUSQ6B6CYiSCBIOh+DhJmmARiWQO" +
"JtDsCJSCSBwkXSLIRicaZ6HqIIomoIguhwIpphIHoWDsJ4mCGChpmqOpGheLIOkqUo2iya4DjGJxihiQoSj4IJaDaMpCjCWoGg6PgpBiQ4tHcQJQBAgI=");
_ObjectCallMethod( appearance , "Add", 2,"CP:4 -2 -2 2 2");
_ObjectSetProperty( grid , "LinesAtRoot", 1);
_ObjectSetProperty( grid , "HasButtons", 4);
_ObjectCallMethod(grid, "ExecuteTemplate", "HasButtonsCustom(0) = 16777216");
_ObjectCallMethod(grid, "ExecuteTemplate", "HasButtonsCustom(1) = 33554432");
_ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Column");
items = _ObjectGetProperty( grid , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
h = _ObjectCallMethod( items , "AddItem", "Root 2");
_ObjectCallMethod( items , "InsertItem", h,"","Child");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1033
|
How can I change the visual appearance of the +/- buttons, open/close glyphs as current visual theme (method 2)
OBJECT appearance,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
appearance = _ObjectGetProperty( grid , "VisualAppearance");
_ObjectCallMethod( appearance , "Add", 1,"XP:TREEVIEW 2 1");
_ObjectCallMethod( appearance , "Add", 2,"XP:TREEVIEW 2 2");
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(180) = 16777216");
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(181) = 33554432");
_ObjectSetProperty( grid , "LinesAtRoot", -1);
_ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Column");
items = _ObjectGetProperty( grid , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
h = _ObjectCallMethod( items , "AddItem", "Root 2");
_ObjectCallMethod( items , "InsertItem", h,"","Child");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1032
|
How can I find if the control is running in DPI mode
OBJECT grid;
grid = ObjectByName("AN1") ;
Message( _ObjectCallMethod( grid , "FormatABC", "dpi = 1 ? `normal/stretch mode` : `dpi mode`") );
|
|
1031
|
How can I change the visual appearance of the +/- buttons (method 1)
OBJECT appearance,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
appearance = _ObjectGetProperty( grid , "VisualAppearance");
_ObjectCallMethod( appearance , "Add", 1,"gBFLBCJwBAEHhEJAAEhABDwCg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQS" +
"BcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+Opf" +
"DxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4" +
"llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJegef4zluaJ3nqPJeCYH4BAeX5TDLBpVGqKRRnwf4flefZtHsX54BYAR/F+EwVnUd5eAMMJKDIChygyIQpAoEh4iIJ5Jlg" +
"XIcgCXpIGoFwnGEQh6BEKBgmMIICHgIJCAiUAzgyUoAhwJohkiRgygwYpiGoKwzGIcgKCkNQNCMRIbCYCRYk4QoMiOchWDwNBjhiJJaDYTRiGiFwlCQAhOE8JBJHITIR" +
"gwZRZFCFCZBkOIUhKTRpCWAwgGYQ4El4NxlBifIWCcCYCFoaoMGaKYyG6GxlBmGJdhkCAWBIeA5g4U4QhMJAImkPIShRVxGgQJRlCIUISh+SJpnCZIeBgFgiHgO4OlOM" +
"INCISByECDQikkGhuh2JwpmqBogCKaYiC6FwhmkQ4yHgYgYiaHopiuaRakCbIsisSpGjYOwaHYKYMCkK5CA2IxrCwCwFigaJrkLTI6lcdANAEgIA=");
_ObjectCallMethod( appearance , "Add", 2,"gBFLBCJwBAEHhEJAAEhABEICg6AADACAxRDgMQBQKAAzAJBIYhiG4cYCgMZhXDOCYXABCEYRXBIZQ7BKNIxjSJ5BhIAAyDSJMjSRJUEhqGCWYDleYYYAKHIMQLJQKQS" +
"BcQR9EaBZBAWTpQC0OJDTJRI4TNAgbSYAAYRqoCb6loTKypaxjCQQIgkUBpGKdBynEYsDwSGyJCCJWyIbpKAwoVbcs4AYhuJpaQi+d5PFbjVT8dLAMBwLA8EwXAJ+Opf" +
"DxXU7eFKpR5fchXTI8UxXFqXZhkeQrfh7KYVRBKdBQRBEFQPJqnahqOpaXo2RoLUJKcQwHTmHYNQTALyuTALZrWeZ3XrgN74LbtZzVQauYRpbCMEr6bpoWLnFi6Ho1U4" +
"llWah1jqSweFqfxPgQQRphi+Yak0YIuqUfJeg8X4rluaZ3niGB+AQHx/EyShjjEVYqiUR5rnmex/GAB5+AIf4gEeXJFHyXZ3gCTAygyAociMKBKEKBIeCiCZyHYFAnCE" +
"eBkh+BghFgRIegOCgYCySAgh4CAkgINAMmMNIgCcCYjn4LoLmMCJGDKC5ijIagoDMYhCAoJg1A0IxEhsJgJFiThChCY5yFYPA0GOGIYloNhNGIaIXCUJACE4TwkEkchO" +
"FSFYlFkXhUCUCQZEYTglCSMxaEkYJIBmFJhDeDZZEYPwlgmQhghaGqVDoa4bGaeY6FGGZNlmFIBGEJ4jhiZQ5AkMhAg6E5JCkRoGCUSQ6B6CYiSCBIOh+DhJmmARiWQO" +
"JtDsCJSCSBwkXSLIRicaZ6HqIIomoIguhwIpphIHoWDsJ4mCGChpmqOpGheLIOkqUo2iya4DjGJxihiQoSj4IJaDaMpCjCWoGg6PgpBiQ4tHcQJQBAgI=");
_ObjectSetProperty( grid , "LinesAtRoot", -1);
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(180) = 16777216");
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(181) = 33554432");
_ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Column");
items = _ObjectGetProperty( grid , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
h = _ObjectCallMethod( items , "AddItem", "Root 2");
_ObjectCallMethod( items , "InsertItem", h,"","Child");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1030
|
I am using single selection, the question is if possible to select an item only when the user releases the mouse, as currently it selects the item as soon as the user clicks it
// SelectionChanged event - Fired after a new item has been selected.
FUNCTION gridEvents_SelectionChanged()
Message( "SelectionChanged" );
END
OBJECT grid,items;
grid = ObjectByName("AN1") ;
ObjectAssociateEvents("gridEvents", grid);
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectCallMethod( grid , "FreezeEvents", -1);
_ObjectSetProperty( grid , "SingleSel", -1);
_ObjectSetProperty( grid , "SelectOnRelease", -1);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Column") , "FormatColumn", "1 apos `A-Z`");
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", "");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SelectItem(AddItem(``)) = True");
_ObjectCallMethod( items , "AddItem", "");
_ObjectCallMethod( grid , "FreezeEvents", 0);
_ObjectCallMethod( grid , "EndUpdate");
|
|
1029
|
Is it possible to select nothing
// SelectionChanged event - Fired after a new item has been selected.
FUNCTION gridEvents_SelectionChanged()
Message( "SelectionChanged" );
END
OBJECT grid,items;
grid = ObjectByName("AN1") ;
ObjectAssociateEvents("gridEvents", grid);
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectCallMethod( grid , "FreezeEvents", -1);
_ObjectSetProperty( grid , "AllowSelectNothing", -1);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Column") , "FormatColumn", "1 apos `A-Z`");
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", "");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SelectItem(AddItem(``)) = True");
_ObjectCallMethod( items , "AddItem", "");
_ObjectCallMethod( grid , "FreezeEvents", 0);
_ObjectCallMethod( grid , "EndUpdate");
|
|
1028
|
How can I specify the color for control's selection when it loses the focus
OBJECT column,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "");
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "AllowDragging", 0);
_ObjectSetProperty( column , "AllowSort", 0);
_ObjectSetProperty( column , "Width", 24);
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", column)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(2) = True");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Column") , "FormatColumn", "1 apos `A-Z`");
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", "");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SelectItem(AddItem(``)) = True");
_ObjectCallMethod( items , "AddItem", "");
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(166) = 12895428");
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(167) = 65536");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1027
|
How can I change the background color for checked items (EBN color, frame)
// CellStateChanged event - Fired after cell's state has been changed.
FUNCTION gridEvents_CellStateChanged(OBJECT grid, INT Item, INT ColIndex)
_ObjectCallMethod( grid , "Refresh");
END
OBJECT appearance,column,conditionalformat,grid,items;
grid = ObjectByName("AN1") ;
ObjectAssociateEvents("gridEvents", grid);
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "LinesAtRoot", -1);
_ObjectSetProperty( grid , "SelBackMode", 1);
_ObjectSetProperty( grid , "DefaultItemHeight", 22);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Tasks");
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", column)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "PartialCheck", -1);
appearance = _ObjectGetProperty( grid , "VisualAppearance");
_ObjectCallMethod( appearance , "Add", 2,"gBFLBCJwBAEHhEJAAEhABUkIQAAYAQGKIcBiAKBQAGYBIJDEMQ3DjAUBjMK4ZwTC4AIQjCK4JDKHYJRpHEZgLBMJAAGIZYhhUYRUiYMkiJBGGDIDiGGI2SJAcbTVIEc" +
"x9EyUJSgSTJOjCMokTTIU4TTLYASbJafJJhWSaAiyMouDIOMg1BDNIw/Hika6jOgKUisNJXRzWIBTbDlOQ3JqnbCjOQRSrQBoNDAMAiiaKlbwJPK9RoieQXfwUAJrXJc" +
"FqXFSLVxNBKAQEBA=");
_ObjectCallMethod( appearance , "Add", 1,"CP:2 1 1 -1 -1");
conditionalformat = _ObjectCallMethod( _ObjectGetProperty( grid , "ConditionalFormats") , "Add", "%CS0 = 1");
_ObjectSetProperty( conditionalformat , "BackColor", 16777216);
_ObjectSetProperty( grid , "HeaderVisible", 1);
items = _ObjectGetProperty( grid , "Items");
h = _ObjectCallMethod( items , "AddItem", "Project");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 1");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,hChild")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", hChild)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SelectItem(hChild) = True");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 2");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(hChild,0) = 1");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 3");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(hChild,0) = 1");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1026
|
How can I change the caption of the checked items (sample 2)
OBJECT column,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "LinesAtRoot", -1);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Tasks");
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", column)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "PartialCheck", -1);
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(17) = 1");
_ObjectSetProperty( column , "FormatColumn", "%CS0 = 1 ? `<bgcolor=000000><fgcolor=FFFFFF> ` + value + ` </fgcolor></bgcolor>` : value");
_ObjectSetProperty( grid , "HeaderVisible", 1);
items = _ObjectGetProperty( grid , "Items");
h = _ObjectCallMethod( items , "AddItem", "Project");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 1");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,hChild")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", hChild)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SelectItem(hChild) = True");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 2");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(hChild,0) = 1");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 3");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(hChild,0) = 1");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1025
|
How can I change the caption of the checked items (sample 1)
OBJECT column,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "LinesAtRoot", -1);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Tasks");
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", column)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "PartialCheck", -1);
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(17) = 1");
_ObjectSetProperty( column , "FormatColumn", "value + (%CS0 = 1 ? `<r><fgcolor=808080>(checked)` : ``)");
_ObjectSetProperty( grid , "HeaderVisible", 1);
items = _ObjectGetProperty( grid , "Items");
h = _ObjectCallMethod( items , "AddItem", "Project");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 1");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,hChild")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", hChild)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SelectItem(hChild) = True");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 2");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(hChild,0) = 1");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 3");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(hChild,0) = 1");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1024
|
How can I change the font for the checked items
// CellStateChanged event - Fired after cell's state has been changed.
FUNCTION gridEvents_CellStateChanged(OBJECT grid, INT Item, INT ColIndex)
_ObjectCallMethod( grid , "Refresh");
END
OBJECT column,conditionalformat,f,grid,items;
grid = ObjectByName("AN1") ;
ObjectAssociateEvents("gridEvents", grid);
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "LinesAtRoot", -1);
_ObjectSetProperty( grid , "DefaultItemHeight", 22);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Tasks");
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", column)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "PartialCheck", -1);
conditionalformat = _ObjectCallMethod( _ObjectGetProperty( grid , "ConditionalFormats") , "Add", "%CS0 = 1");
f = CreateObject("StdFont");
_ObjectSetProperty( f , "Name", _ObjectGetProperty( _ObjectGetProperty( grid , "Font") , "Name"));
_ObjectSetProperty( f , "Size", 12);
_ObjectSetProperty( conditionalformat , "Font", f);
_ObjectSetProperty( grid , "HeaderVisible", 1);
items = _ObjectGetProperty( grid , "Items");
h = _ObjectCallMethod( items , "AddItem", "Project");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 1");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,hChild")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", hChild)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SelectItem(hChild) = True");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 2");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(hChild,0) = 1");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 3");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(hChild,0) = 1");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1023
|
How can I bold the checked items
// CellStateChanged event - Fired after cell's state has been changed.
FUNCTION gridEvents_CellStateChanged(OBJECT grid, INT Item, INT ColIndex)
_ObjectCallMethod( grid , "Refresh");
END
OBJECT column,conditionalformat,grid,items;
grid = ObjectByName("AN1") ;
ObjectAssociateEvents("gridEvents", grid);
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "LinesAtRoot", -1);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Tasks");
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", column)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "PartialCheck", -1);
conditionalformat = _ObjectCallMethod( _ObjectGetProperty( grid , "ConditionalFormats") , "Add", "%CS0 = 1");
_ObjectSetProperty( conditionalformat , "Bold", -1);
_ObjectSetProperty( grid , "HeaderVisible", 1);
items = _ObjectGetProperty( grid , "Items");
h = _ObjectCallMethod( items , "AddItem", "Project");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 1");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,hChild")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", hChild)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SelectItem(hChild) = True");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 2");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(hChild,0) = 1");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 3");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(hChild,0) = 1");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1022
|
How can I change the foreground color for checked items
// CellStateChanged event - Fired after cell's state has been changed.
FUNCTION gridEvents_CellStateChanged(OBJECT grid, INT Item, INT ColIndex)
_ObjectCallMethod( grid , "Refresh");
END
OBJECT column,conditionalformat,grid,items;
grid = ObjectByName("AN1") ;
ObjectAssociateEvents("gridEvents", grid);
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "LinesAtRoot", -1);
_ObjectSetProperty( grid , "SelBackMode", 1);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Tasks");
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", column)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "PartialCheck", -1);
conditionalformat = _ObjectCallMethod( _ObjectGetProperty( grid , "ConditionalFormats") , "Add", "%CS0 = 1");
_ObjectSetProperty( conditionalformat , "ForeColor", 8421631);
_ObjectSetProperty( grid , "HeaderVisible", 1);
items = _ObjectGetProperty( grid , "Items");
h = _ObjectCallMethod( items , "AddItem", "Project");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 1");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,hChild")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", hChild)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SelectItem(hChild) = True");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 2");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(hChild,0) = 1");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 3");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(hChild,0) = 1");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1021
|
How can I change the background color for checked items (solid color)
// CellStateChanged event - Fired after cell's state has been changed.
FUNCTION gridEvents_CellStateChanged(OBJECT grid, INT Item, INT ColIndex)
_ObjectCallMethod( grid , "Refresh");
END
OBJECT column,conditionalformat,grid,items;
grid = ObjectByName("AN1") ;
ObjectAssociateEvents("gridEvents", grid);
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "LinesAtRoot", -1);
_ObjectSetProperty( grid , "SelBackMode", 1);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Tasks");
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", column)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "PartialCheck", -1);
conditionalformat = _ObjectCallMethod( _ObjectGetProperty( grid , "ConditionalFormats") , "Add", "%CS0 = 1");
_ObjectSetProperty( conditionalformat , "BackColor", 8421631);
_ObjectSetProperty( grid , "HeaderVisible", 1);
items = _ObjectGetProperty( grid , "Items");
h = _ObjectCallMethod( items , "AddItem", "Project");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 1");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,hChild")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", hChild)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.SelectItem(hChild) = True");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 2");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(hChild,0) = 1");
hChild = _ObjectCallMethod( items , "InsertItem", h,"","Task 3");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(hChild,0) = 1");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1020
|
How can I export the cell's state as well
OBJECT column,columns,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
columns = _ObjectGetProperty( grid , "Columns");
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", columns)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Add(`C1`).Def(0) = True");
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "C2") , "FormatColumn", "1 index `A-Z`");
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "C3") , "FormatColumn", "100 index ``");
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", "Item 1");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(AddItem(`Item 2`)) = 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(AddItem(`Item 3`)) = 1");
_ObjectCallMethod( grid , "EndUpdate");
Message( "Export CSV Items including Check-State:" );
_ObjectCallMethod( grid , "BeginUpdate");
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Check");
_ObjectSetProperty( column , "Position", 0);
_ObjectSetProperty( column , "FormatColumn", "%CS0");
Message( _ObjectCallMethod( grid , "Export", "") );
_ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Remove", "Check");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1019
|
Is it possible to customize the editor selection colour of the built in text editor, from standard blue to black
OBJECT editor,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "SelBackColor", 0);
_ObjectSetProperty( grid , "SelForeColor", 16777215);
editor = _ObjectGetProperty( _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Edit") , "Editor");
_ObjectSetProperty( editor , "EditType", 8);
_ObjectSetProperty( editor , "Mask", ";;;rich");
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", "");
_ObjectCallMethod( items , "AddItem", "Just a text");
_ObjectCallMethod( items , "AddItem", "");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1018
|
Is it possible to customize the editor selection colour of the built in dropdown editor, from standard blue to black
OBJECT editor,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "SelBackColor", 0);
_ObjectSetProperty( grid , "SelForeColor", 16777215);
editor = _ObjectGetProperty( _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "DropDown") , "Editor");
_ObjectCallMethod( editor , "AddItem", 1,"This is just the first item");
_ObjectCallMethod( editor , "AddItem", 2,"This is just the second item");
_ObjectCallMethod( editor , "AddItem", 3,"This is just the third item");
_ObjectSetProperty( editor , "EditType", 2);
_ObjectSetProperty( editor , "Mask", ";;;rich");
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", "");
_ObjectCallMethod( items , "AddItem", "Just a text");
_ObjectCallMethod( items , "AddItem", "");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1017
|
The BeforeExpandItem event is fired when clicking the drop down filter button. What we can do to prevent that
// BeforeExpandItem event - Fired before an item is about to be expanded (collapsed).
FUNCTION gridEvents_BeforeExpandItem(OBJECT grid, INT Item, VARIANT Cancel)
Message( "BeforeExpandItem" );
Message( Item );
Message( "ColumnFromPoint" );
Message( _ObjectCallMethod(grid, "ExecuteTemplate", "ColumnFromPoint(-1,-1)") );
Message( "ColumnFromPoint return -1, if the user clicks the +/- glitch, else it returns the index of the column where the click occurs." );
_ObjectCallMethod( _ObjectGetProperty( grid , "Items") , "InsertItem", Item,"","new child");
END
OBJECT columns,grid,items;
grid = ObjectByName("AN1") ;
ObjectAssociateEvents("gridEvents", grid);
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "LinesAtRoot", -1);
columns = _ObjectGetProperty( grid , "Columns");
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Items") , "DisplayFilterButton", -1);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemHasChildren(InsertItem(,,`Group 1`)) = True");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ItemHasChildren(InsertItem(,,`Group 2`)) = True");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1016
|
How do I change the drop down filter icon/button (black)
OBJECT appearance,column,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
appearance = _ObjectGetProperty( grid , "VisualAppearance");
_ObjectCallMethod( appearance , "Add", 1,"gBFLBCJwBAEHhEJAAEhABXUIQAAYAQGKIcBiAKBQAGYBIJDEMgzDDAUBjKKocQTC4AIQjCK4JDKHYJRpHEZyCA8EhqGASRAFUQBYiWE4oSpLABQaK0ZwIGyRIrkGQgQ" +
"gmPYDSDNU4zVIEEglBI0TDNczhNDENgtGYaJqHIYpZBcM40TKkEZoSIITZcRrOEBiRL1S0RBhGcRUHZlWzdN64LhuK47UrWdD/XhdVzXRbjfz1Oq+bxve48Br7A5yYTh" +
"dr4LhOFQ3RjIL4xbIcUwGe6VZhjOLZXjmO49T69HTtOCYBEBA");
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(32) = -1");
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(0) = 16777216");
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(26) = 65536");
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(27) = 16777215");
_ObjectCallMethod(grid, "ExecuteTemplate", "Description(25) = `<bgcolor 0><fgcolor ffffff> Exclude </fgcolor></bgcolor>`");
_ObjectSetProperty( grid , "HeaderAppearance", 0);
_ObjectSetProperty( grid , "BackColorHeader", 0);
_ObjectSetProperty( grid , "ForeColorHeader", 16777215);
_ObjectSetProperty( grid , "HeaderVisible", 1);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Filter");
_ObjectSetProperty( column , "FilterList", 8448);
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "AllowSort", 0);
_ObjectSetProperty( column , "AllowDragging", 0);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", "One");
_ObjectCallMethod( items , "AddItem", "Two");
_ObjectCallMethod( items , "AddItem", "Three");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1015
|
How do I change the drop down filter icon/button (white)
OBJECT appearance,column,grid;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
appearance = _ObjectGetProperty( grid , "VisualAppearance");
_ObjectCallMethod( appearance , "Add", 2,"gBFLBCJwBAEHhEJAAEhABX8GACAADACAxSDEMQBQKAAzQFAYbhgHCGAAGQaBUgmFgAQhFcZQSKUOQTDKNYykCIRSDUJYkSZEIyjBI8ExXFqNACkGKwYgmNYiTLAcgAN" +
"J0WBaGIZJ4gOT5fDKMoEDRRYADFCscwxJybQAqGQKKb+VgAVY/cTyBIAEQSKA0TDOQ5TSKWB4JPZQRBEbZMNBtBIUJquKaqShdQJCU5FdY3Xblez9P7AMBwLFEC4NQ8Y" +
"NYuPhjR4dRTIMhvVAsUArFh8Zg9GZZFjmDIDT4ydBLTQwcyVIKnP5qOa6XbmPoCQDYKxZHYxPzVDa3axuL76dqCAT7XrXNy1TbNRrzQKfcJqfCbdw2YaDZLOOT3fjuI4" +
"hhKaRzFAHJ+jYQ4xHuY4gHuGIXGeExqC8Tp6C+PoEm+G5ImycRgh0XwvDGa5rgOeoejyXwnFeQp2mkf5ClgBB9gCWIYAwfYAEKV58mkdwOggNArgOXY2EWLoDkKOA0mg" +
"bhOGgZApgaSBIHWSYHSmbApgYThmESZYJkIeIkgeCpfliLIHgpMIcmUYYYmODAlg2SI4mWfRfGOEguDcCRjFYAJihCQhJBSDoRmONgKEcI4kFCEJhhOVYTmYnAlEAQhW" +
"BMJYJGYWoWmWSR2F6F5lnkWAQhUAgpEieRWEuSYkjWGpmkmNhuhuZwJkYcocmaaYkjyEhngnUA6lEFAlAEgI=");
_ObjectCallMethod( appearance , "Add", 1,"CP:2 -4 -4 2 4");
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(0) = 16777216");
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(32) = BackColor");
_ObjectSetProperty( grid , "HeaderAppearance", 0);
_ObjectSetProperty( grid , "HeaderHeight", 24);
_ObjectSetProperty( grid , "BackColorHeader", 16777215);
_ObjectSetProperty( grid , "HeaderVisible", 1);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Filter");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "AllowSort", 0);
_ObjectSetProperty( column , "AllowDragging", 0);
_ObjectCallMethod( grid , "EndUpdate");
|
|
1014
|
How can I draw a solid frame around the the focusing item
OBJECT appearance,column,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "SingleSel", 0);
_ObjectSetProperty( grid , "DefaultItemHeight", 20);
appearance = _ObjectGetProperty( grid , "VisualAppearance");
_ObjectSetProperty( appearance , "RenderType", -1);
_ObjectCallMethod( appearance , "Add", 1,"gBFLBCJwBAEHhEJAAEhABOkGACAADACAxRDgMQBQKAAzAJBIYhkGYYYCgMZRUDGCYXABCEYRXBKUQSDqEYyjGLIXAWCYSAAMIwDKAUEwpFAZBhgeDYMiSNoYDJCM4wH" +
"IURRJFCUJSGWQpTgSIgyT5HFIxXKoASbJabZLhWS6EpWOotTbIQQRYCkEyfKKfZyGURZQqOKA1DBZErWTJESRFJqLazgO4LAhyQYrVgAErzVKVCRNOqbJzADApdpGQJT" +
"ULDNTQHRFIyhOSnIRrWbMAhid6JUZiVT4dBOIYhSYANAqCwLFqrDJmWrpV5WZjlZ47V6BdAyXJsIrmFJEXaOGhyDDlGybSDZYryfZhUziUw4XjbWwZDqPF6DKTTdSGLR" +
"EE8WZVlURZvDaep3C+AY8kAYRgGCCBJECUhjDoHROEYWgoAGTQ1CEEx9lGMY0CQUYSnuZQDBGBYFlOH5+H+igGAKAJgEgFgGgGVgDn4CoCmCSA2A6A5hAgDgQgSYRIE4" +
"EoFGGCBiBeBhhkgPgbgcYgICoH4IGGWIOCSBhiGiHgVgoYooFoAoLGIWI+DCCgjCiTgrgII4ImYOoOmOSJ2AYOpWlQDQBICA=");
_ObjectSetProperty( grid , "ShowFocusRect", -1);
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(19) = 16777216");
_ObjectSetProperty( grid , "LinesAtRoot", -1);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "P1");
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", column)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "PartialCheck", -1);
items = _ObjectGetProperty( grid , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1013
|
The frame around the focusing item is not very clear. Can I show it larger or more cleared (sample 2)
OBJECT appearance,column,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "SingleSel", 0);
_ObjectSetProperty( grid , "DefaultItemHeight", 20);
_ObjectSetProperty( grid , "ShowFocusRect", -1);
appearance = _ObjectGetProperty( grid , "VisualAppearance");
_ObjectSetProperty( appearance , "RenderType", -1);
_ObjectCallMethod( appearance , "Add", 2,"gBFLBCJwBAEHhEJAAEhABPEGACAADACAxRDgMQBQKAAzAJBIYhkGYYYCgMZRUDGCYXABCEYRXBKUQSDqEYyjGLIXAWCYSAAMIwDKAUEwpFAZBhgeCRUgyJI3RgMUIzV" +
"AcRRFEiUJQlIZZCjOAw0SIMU7xZRcNxsACnaZnCR4NiuRYiUhOcqzRIQIQ4CiEahqOgJbDUJYwWZKAyjBY8XTZFCSJCpeJ6egOc5jRxQUp1WAEXx3GSsJKvCZ5cADBY+" +
"VLQNS0JBtMSTKSLaiuWoIJqCPaDRheWKQJh1NSnLqEcjyYANDxDCZlWzAYxWTZ2Uz7N7PbB0HY4DyPGKZYrfESVRbQcZNS6nNigPI9XhfGq6VjRe63ZaOaYpWrnOJqTR" +
"WjOKYujWdZ2BGO5lkuBAAkmcQkDmDBEAwEQJCgGhMGcQ4pkiSxGAAOYmkQIhvkYNg2gSCgyj+LI4GIMIwF2XQoAYAoAmASAWAaAZgggJgKFiT54DYDoDmECBGBKBJgGg" +
"TgWgWYRoFYGIGmGOBqByB5hCgegggiYJYgoJIICIaIeByChiigYgsgsYYYBYMIKCMKJOCuDRjGiOgLg6Y5InYPoPmQCAkmsXAQDQBCAg=");
_ObjectCallMethod( appearance , "Add", 3,"CP:2 -3 0 3 0");
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(19) = 50397441");
_ObjectSetProperty( grid , "LinesAtRoot", -1);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "P1");
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", column)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "PartialCheck", -1);
items = _ObjectGetProperty( grid , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1012
|
The frame around the focusing item is not very clear. Can I show it larger or more cleared (sample 1)
OBJECT appearance,column,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "SingleSel", 0);
_ObjectSetProperty( grid , "ShowFocusRect", -1);
appearance = _ObjectGetProperty( grid , "VisualAppearance");
_ObjectCallMethod( appearance , "Add", 1,"gBFLBCJwBAEHhEJAAEhABHoDg6AADACAxRDgMQBQKAAzAJBIYhkGYYYCgMZRUDGCYXABCEYRXBIZQ7BKNIxjSJwFiCCQwSDKEjyCKcGRHF6MI6gOYpCgOIYjRJNIASV" +
"AceAAGaUZrjSgobjmOYhAJCLqhYIgASXJqLaBlOCaAieSc+QhjQJIJoeCZXU5TFg1BTsOhqEqcRiseaRVDCaIJWzbdYWLDdNQHHKYLjnWorbpSJZ5XjNEySDQkMS9PrE" +
"J7vST8FBCdAABLJUB2BR9RwxRafKpnWwJDpmCaOQLXEB5DK1PyVMTKYrtGy7GrIAJxWxbV4UHh+QABOzIMAvHKJMwvHYcUZne5XVLeF41HbONogPaJZyIAK2cLROq6Xo" +
"7GEcJZEcLASB4DwvgWUZlE6AQQhKAYkkYdA6hyDIwHgSoqFwQgmnsYxjGgSIiBOTpSEiAwRgOJI7j4JAHA6U5wm0MpPlOBIjD8TZiGYCICiCGAuA6AxhAgMgSgOYQ4DY" +
"Bg/g6cw1n+ABOmMMJ9DmCwjnScw4RsVJngkYh4hoKIKmKKI2CmC5ikiQgqgiT5jhyMw8g4QwIn0OIKEiCJhD8DwTGyfA7k0WQOEWEQkGkJhIhKZB5DYSoTiSCQEn4PQO" +
"COXJcCeIJjliaIQk0aRyF4O5llmAhfhgZhJg4ZoYiaAxYn4PZOhOZJaCUZYTiYQw1mcOZUm+HQnHmWh4h6Z4pnYeYfk0eYsmqG4nAgNJ2DqD5DkCWoiGiOgqgyI5omoR" +
"oNiSaQKFKEojCaM4ugSFhOjkAJcieKgDkaH4oioGoOiaKRqgqEoqDddwyhuAxPgOMJ8DyDZqk6NYtCsapmjiLprHqdo6i+K5K1oPhOlqPgKD4DpjnII4yiOewuk6MxtA" +
"sMpSjObQ7EaT4wk6ewYn0PgPAiCJkjeLgDk6X44i4G4OmaORuguEpqDkLAzkaWg+E8GIUmaPIvEOVpzj2Lxbl6eo+G+S5in4OYPmOaJyjuTwjnYWpBg6DAjAqQZwkwJw" +
"NkKcJsEcEJCDBEpaD6Dw8BiapGjGSgfB2RpxmyBwgkicZ8haBw/g+M5TBcPQPlOXJskscp8jsMJMnMLJXDGTZzEyYw2kwMoDlcFw9i2M4/EGUJPg0CxFlENBtCcSJSnQ" +
"fQ0m+SgPHsaJ7lALZLG6XZVHWDRfFqVY1k0ZxdladYTnifJUGaeAWAeMnSGcGWgBObJ3lWbwdjKW5cHcTZPHaLkN4GxXDlFqFsA4uRbBOGAFAEIzAsDEFOBkfYqR4D6A" +
"OBEYo8QuBvAmMceInBDgcD0JwOIqQyJ1DMAwG4IANDnHSMoK4QhOgMBGNEIQvQWAdGenETIswGiddsAAQAgCAgA==");
_ObjectCallMethod( appearance , "Add", 2,"gBFLBCJwBAEHhEJAAEhABeEGACAADACAxRDgMQBQKAAzAJBIYhkGYYYCgMZRUDGCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADDFIBQSLAYROGSDJBGODJDjWGIeQLOEhQH" +
"IMRxPE6UYLhWYpBDKPYcUbGc7yBBMVwGf59XzACoKSheQIVSDQkw6Fo6NYhAxHALyNRkBy8f60KjtGpodDUJYvW5JYyjBZ8EznOqbJBkeJ7BgOe5NQjaD72VgdWQJFSW" +
"JajWYYJDOJY2ZAAE5TVINEwxJbDaylChIdxaF6WAzZEBhBYoATPNLBMrhWqKDw2XaQWBCOgwHYeR5LU7BdRwbIrRq2eAAXbcVyXfDddZlBK+QA0SK9lRVTKvJZmKgBWw" +
"1COSxmAAGw4kcNx1iKFBiCAfQsG8lJemucg7nsXpUHOOxrm+DI3jOH4XAOBx2nscw0j2HhPG4L5uGEVIECQCBCEUAYkGMHQHFGSBlGaAxkEgQgTGCVBsDYQhCgQJZrHK" +
"UggGEShkFGNgIlsNpPnMHJHD+TADAIJIJiIWIeCqChikiIgmgiD5zHyXxgiACJKCuC4jHiZgtg6I4IlkCQwkwOIonMPJjEkFhGhGZBpA4KoMBCGJuEiE5lAkGg7hMY4J" +
"EYVoUCUNAOE6FZl0KWQACWOR2GKF5mBmChchkJRZhoXYaCKKYqGuDglEmNhuhWZpIiYc4dCcCRqGmHZlgm2YxAwSQKESHwkFkKgpiAIAIH4PIimOOg2DiChoiQJRRD+T" +
"ZDHCfwyAyCgyg+JpiioYJ/DgDgIlECQ6lwRAEICA=");
_ObjectCallMethod( appearance , "Add", 3,"CP:2 -2 0 2 0");
_ObjectSetProperty( grid , "SelBackColor", 16777216);
_ObjectSetProperty( grid , "SelForeColor", 0);
_ObjectCallMethod(grid, "ExecuteTemplate", "Background(19) = 67043328");
_ObjectSetProperty( grid , "LinesAtRoot", -1);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "P1");
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", column)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "PartialCheck", -1);
items = _ObjectGetProperty( grid , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1011
|
I have a column right-aligned. How can I display its check box aligned to the right, as it appears to the left of the cell's caption
OBJECT column,columns,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "ColumnAutoResize", -1);
_ObjectSetProperty( grid , "DrawGridLines", 2);
columns = _ObjectGetProperty( grid , "Columns");
column = _ObjectCallMethod( columns , "Add", "Left");
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "Width", 96);
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", column)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "FormatColumn", "0 pos `A-Z`");
column = _ObjectCallMethod( columns , "Add", "Center");
_ObjectSetProperty( column , "HeaderAlignment", 1);
_ObjectSetProperty( column , "Alignment", _ObjectGetProperty( column , "HeaderAlignment"));
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "Width", 96);
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "FormatColumn", "0 pos `A-Z`");
column = _ObjectCallMethod( columns , "Add", "Right");
_ObjectSetProperty( column , "HeaderAlignment", 2);
_ObjectSetProperty( column , "Alignment", _ObjectGetProperty( column , "HeaderAlignment"));
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "Width", 96);
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "FormatColumn", "0 pos `A-Z`");
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(34) = `caption,check,icon,icons,picture`");
_ObjectCallMethod( columns , "Add", "");
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(AddItem(`Item 1`),3) = 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(AddItem(`Item 2`),2) = 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(AddItem(`Item 3`),1) = 1");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1010
|
Can I display the column's multiple-lines caption vertically oriented (method 2)
OBJECT column,columns,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "HeaderHeight", 48);
_ObjectSetProperty( grid , "ColumnAutoResize", -1);
columns = _ObjectGetProperty( grid , "Columns");
_ObjectCallMethod( columns , "Add", "And others ...");
column = _ObjectCallMethod( columns , "Add", "");
_ObjectSetProperty( column , "HTMLCaption", "First Column");
_ObjectSetProperty( column , "HeaderVertical", -1);
_ObjectSetProperty( column , "Width", 36);
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", column)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(48) = 8");
_ObjectSetProperty( column , "Position", 0);
column = _ObjectCallMethod( columns , "Add", "");
_ObjectSetProperty( column , "HTMLCaption", "<c><b>Second Column");
_ObjectSetProperty( column , "HeaderVertical", -1);
_ObjectSetProperty( column , "Width", 36);
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(48) = 8");
_ObjectSetProperty( column , "Position", 1);
column = _ObjectCallMethod( columns , "Add", "");
_ObjectSetProperty( column , "HTMLCaption", "<r>Third Column");
_ObjectSetProperty( column , "HeaderVertical", -1);
_ObjectSetProperty( column , "Width", 36);
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(48) = 8");
_ObjectSetProperty( column , "Position", 2);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(AddItem(`Item 1`),3) = 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(AddItem(`Item 2`),2) = 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(AddItem(`Item 3`),1) = 1");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1009
|
Can I display the column's multiple-lines caption vertically oriented (method 1)
OBJECT column,columns,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "HeaderHeight", 48);
_ObjectSetProperty( grid , "HeaderSingleLine", 0);
_ObjectSetProperty( grid , "ColumnAutoResize", -1);
columns = _ObjectGetProperty( grid , "Columns");
_ObjectCallMethod( columns , "Add", "And others ...");
column = _ObjectCallMethod( columns , "Add", "First Column");
_ObjectSetProperty( column , "HeaderVertical", -1);
_ObjectSetProperty( column , "Width", 36);
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", column)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(48) = 8");
_ObjectSetProperty( column , "Position", 0);
column = _ObjectCallMethod( columns , "Add", "Second Column");
_ObjectSetProperty( column , "HeaderBold", -1);
_ObjectSetProperty( column , "HeaderVertical", -1);
_ObjectSetProperty( column , "Width", 36);
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(48) = 8");
_ObjectSetProperty( column , "Position", 1);
column = _ObjectCallMethod( columns , "Add", "Third Column");
_ObjectSetProperty( column , "HeaderVertical", -1);
_ObjectSetProperty( column , "Width", 36);
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(48) = 8");
_ObjectSetProperty( column , "Position", 2);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(AddItem(`Item 1`),3) = 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(AddItem(`Item 2`),2) = 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(AddItem(`Item 3`),1) = 1");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1008
|
Can I display the column's caption vertically oriented (method 2)
OBJECT column,columns,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "HeaderHeight", 48);
_ObjectSetProperty( grid , "ColumnAutoResize", -1);
columns = _ObjectGetProperty( grid , "Columns");
_ObjectCallMethod( columns , "Add", "And others ...");
column = _ObjectCallMethod( columns , "Add", "");
_ObjectSetProperty( column , "HTMLCaption", "First");
_ObjectSetProperty( column , "HeaderVertical", -1);
_ObjectSetProperty( column , "Width", 20);
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", column)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "Position", 0);
column = _ObjectCallMethod( columns , "Add", "");
_ObjectSetProperty( column , "HTMLCaption", "<c><b>Second");
_ObjectSetProperty( column , "HeaderVertical", -1);
_ObjectSetProperty( column , "Width", 20);
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "Position", 1);
column = _ObjectCallMethod( columns , "Add", "");
_ObjectSetProperty( column , "HTMLCaption", "<r>Third");
_ObjectSetProperty( column , "HeaderVertical", -1);
_ObjectSetProperty( column , "Width", 20);
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "Position", 2);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(AddItem(`Item 1`),3) = 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(AddItem(`Item 2`),2) = 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(AddItem(`Item 3`),1) = 1");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1007
|
Can I display the column's caption vertically oriented (method 1)
OBJECT column,columns,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "HeaderHeight", 48);
_ObjectSetProperty( grid , "ColumnAutoResize", -1);
columns = _ObjectGetProperty( grid , "Columns");
_ObjectCallMethod( columns , "Add", "And others ...");
column = _ObjectCallMethod( columns , "Add", "First");
_ObjectSetProperty( column , "HeaderVertical", -1);
_ObjectSetProperty( column , "Width", 20);
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", column)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "Position", 0);
column = _ObjectCallMethod( columns , "Add", "Second");
_ObjectSetProperty( column , "HeaderBold", -1);
_ObjectSetProperty( column , "HeaderVertical", -1);
_ObjectSetProperty( column , "Width", 20);
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "Position", 1);
column = _ObjectCallMethod( columns , "Add", "Third");
_ObjectSetProperty( column , "HeaderVertical", -1);
_ObjectSetProperty( column , "Width", 20);
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "Position", 2);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(AddItem(`Item 1`),3) = 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(AddItem(`Item 2`),2) = 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(AddItem(`Item 3`),1) = 1");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1006
|
How do I automatically bold items being checked
// CellStateChanged event - Fired after cell's state has been changed.
FUNCTION gridEvents_CellStateChanged(OBJECT grid, INT Item, INT ColIndex)
END
OBJECT conditionalformat,grid,items;
grid = ObjectByName("AN1") ;
ObjectAssociateEvents("gridEvents", grid);
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "SelBackMode", 1);
conditionalformat = _ObjectCallMethod( _ObjectGetProperty( grid , "ConditionalFormats") , "Add", "%CS0","check");
_ObjectSetProperty( conditionalformat , "Bold", -1);
_ObjectCallMethod(grid, "ExecuteTemplate", "Columns.Add(`Items`).Def(0) = True");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", _ObjectCallMethod(grid, "ExecuteTemplate", ".ConditionalFormats.Item(`check`).Expression")) , "FormatColumn", _ObjectCallMethod(grid, "ExecuteTemplate", ".ConditionalFormats.Item(`check`).Expression"));
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", "Item 1");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(AddItem(`Item 2`),0) = 1");
_ObjectCallMethod( items , "AddItem", "Item 3");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1005
|
How can I use the CellState with ConditionalFormat/ComputedField/FormatColumn
// CellStateChanged event - Fired after cell's state has been changed.
FUNCTION gridEvents_CellStateChanged(OBJECT grid, INT Item, INT ColIndex)
END
OBJECT column,grid,items;
grid = ObjectByName("AN1") ;
ObjectAssociateEvents("gridEvents", grid);
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectSetProperty( grid , "LinesAtRoot", 4);
_ObjectSetProperty( grid , "SelBackMode", 1);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", column)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(0) = True");
_ObjectSetProperty( column , "PartialCheck", -1);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Format");
_ObjectSetProperty( column , "FormatColumn", "%CS0");
_ObjectSetProperty( column , "Caption", _ObjectGetProperty( column , "FormatColumn"));
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(5) = 8421504");
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(8) = Def(5)");
items = _ObjectGetProperty( grid , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root");
_ObjectCallMethod( items , "InsertItem", h,"","Item 1");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "TemplatePut", h)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(InsertItem(h,,`Item 2`),0) = 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(InsertItem(h,,`Item 3`),0) = 1");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1004
|
How can I use the CellData with ConditionalFormat/ComputedField/FormatColumn
OBJECT column,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Items");
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Format");
_ObjectSetProperty( column , "FormatColumn", "%CD0");
_ObjectSetProperty( column , "Caption", _ObjectGetProperty( column , "FormatColumn"));
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", column)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(5) = 8421504");
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(8) = Def(5)");
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellData(AddItem(`Item 1`),0) = 1234");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellData(AddItem(`Item 2`),0) = `this is just an user data`");
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellData(AddItem(`Item 3`),0) = #1/1/2001#");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1003
|
How can I use the CellValue/CellCaption with ConditionalFormat/ComputedField/FormatColumn
OBJECT column,editor,grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Items");
editor = _ObjectGetProperty( column , "Editor");
_ObjectSetProperty( editor , "EditType", 3);
_ObjectCallMethod( editor , "AddItem", 1,"Item 1");
_ObjectCallMethod( editor , "AddItem", 2,"Item 2");
_ObjectCallMethod( editor , "AddItem", 3,"Item 3");
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Format");
_ObjectSetProperty( column , "FormatColumn", "%0");
_ObjectSetProperty( column , "Caption", _ObjectGetProperty( column , "FormatColumn"));
_ObjectCallMethod(grid, "TemplatePut", "Dim colObj")
_ObjectCallMethod(grid, "TemplatePut", column)
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(5) = 8421504");
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(8) = Def(5)");
_ObjectSetProperty( column , "AllowSizing", 0);
column = _ObjectCallMethod( _ObjectGetProperty( grid , "Columns") , "Add", "Format");
_ObjectSetProperty( column , "FormatColumn", "%C0");
_ObjectSetProperty( column , "Caption", _ObjectGetProperty( column , "FormatColumn"));
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(5) = 8421504");
_ObjectCallMethod(grid, "ExecuteTemplate", "colObj.Def(8) = Def(5)");
_ObjectSetProperty( column , "AllowSizing", 0);
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", 1);
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellValue(AddItem(0),0) = 2");
_ObjectCallMethod( items , "AddItem", 2);
_ObjectCallMethod( grid , "EndUpdate");
|
|
1002
|
Can I display the radio-button with a solid color
OBJECT grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectCallMethod(grid, "ExecuteTemplate", "RadioImage(0) = 32699122");
_ObjectCallMethod(grid, "ExecuteTemplate", "RadioImage(1) = 16777216");
_ObjectCallMethod(grid, "ExecuteTemplate", "Columns.Add(`Check`).Def(1) = True");
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", "Radio 1");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(AddItem(`Radio 2`),0) = 1");
_ObjectCallMethod( items , "AddItem", "Radio 1");
_ObjectCallMethod( grid , "EndUpdate");
|
|
1001
|
Can I display the check-box with a solid color
OBJECT grid,items;
grid = ObjectByName("AN1") ;
_ObjectCallMethod( grid , "BeginUpdate");
_ObjectCallMethod(grid, "ExecuteTemplate", "CheckImage(0) = 32699122");
_ObjectCallMethod(grid, "ExecuteTemplate", "CheckImage(1) = 16777216");
_ObjectCallMethod(grid, "ExecuteTemplate", "Columns.Add(`Check`).Def(0) = True");
items = _ObjectGetProperty( grid , "Items");
_ObjectCallMethod( items , "AddItem", "Check 1");
_ObjectCallMethod(grid, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(grid, "TemplatePut", items)
_ObjectCallMethod(grid, "ExecuteTemplate", "iteObj.CellState(AddItem(`Check 2`),0) = 1");
_ObjectCallMethod( items , "AddItem", "Check 3");
_ObjectCallMethod( grid , "EndUpdate");
|